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PRESSURE  GRADIENT  EFFECTS  IN  THE  VISCOUS 
WALL  REGION  OF  A  TURBULENT  FLOW 


The  results  of  a  study  investigating  the  effects  of  an  imposed  pressure 
gradient  on  the  viscous  wall  region  of  a  turbulent  flow  are  presented.  Only 
imposed  pressure  gradients  homogeneous  in  the  streamwise  direction  are 
considered. 

A  computational  model  that  neglects  streamwise  derivatives  is  used  to 

study  imposed  pressure  gradients  that  are  constant  in  time.  The  shear  stress 

at  the  edge  of  the  viscous  wall  region,  and  not  the  wall  shear  stress,  is 

shown  to  be  the  proper  shear  stress  to  use  in  scaling  the  coherent  eddy 

structures  responsible  for  the  production  of  the  turbulent  kinetic  in  the 

viscous  wall  region.  Arguments  are  presented  that  show  the  minimum  Pe+  value 

at  the  edge  of  the  viscous  wall  region,  where  P  +  is  defined  by 
+  +  + 

T  _  1  +  pe  y  >  corresponds  to  the  point  of  imminent  relaminarization  of  a 
turbulent  flow.  It  is  suggested  that  the  logarithmic  region  disappears  at 
this  minimum  value. 

Measurements  using  electrochemical  probes  are  presented  of  the  variation 

of  the  wall  shear  stress,  the  turbulent  fluctuations  of  the  wall  shear  stress, 

and  the  transverse  correlation  coefficients  of  the  streamwise  velocity 

gradient  at  the  wall  that  are  caused  by  the  imposition  of  a  sinusoidal 

pressure  gradient  on  the  flow  of  a  turbulent  fluid  through  a  two  inch  pipe. 

The  correlation  coefficient  measurements  are  used  to  provide  information  about 

the  variation  of  the  streak  spacing,  A+.  Results  are  presented  for  pulsations 

having  a  constant  centerline  variation  of  10%  and  dimensionless 

frequencies,  to  ,  ranging  from  0.0012  to  0.0915.  At  low  <o+  values,  the 

variation  of  X  is  roughly  10%.  The  scaling  relations  developed  for  constant 

pressure  gradients  are  found  to  be  also  applicable  for  pulsating  turbulent 
+  + 

flow  at  low  to  values*  At  higher 'to  values,  the  turbulence  is  no  longer  able 
to  follow  the  imposed  pressure  gradient  and  the  amplitude  of  the  variation  of 
the  turbulence  is  close  to  zero.  However,  at  u>+  values  larger  than  the 
bursting  frequency,  a  highly  nonlinear  large  amplitude  variation  is  observed 
in  the  A  measurements.  This  variation  cannot  be  explained  by  present 
theories  of  turbulence. 
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CHAPTER  1.  INTRODUCTION 

Considerable  attention  has  been  focused  on  the  viscous  wall  region  of  a 
bounded  turbulent  shear  flow  since  the  discovery  in  the  late  1950's  that 
this  region  contains  a  significant  amount  of  coherent  structure.  The  dye 
experiments  of  Beatty,  Ferrell,  and  Richardson  (Corrsin  1956)  and  by  Hama 
(Corrsin  1956)  revealed  the  formation  of  a  streaky  structure  in  the  viscous 
sublayer  which  repeated  in  the  spanwise  direction.  These  structures  are 
greatly  elongated  in  the  streamwise  direction.  Further  experiments  using 
hydrogen  bubble  techniques  as  well  as  dye  techniques  [Kline  et  al .  (1967), 
Kim  et  al.  (1971)]  showed  that  the  wall  dye  streaks  are  regions  of  low 
streamwise  momentum  fluid,  and  the  regions  between  streaks  contain  high 
streamwise  momentum.  As  the  streaks  move  downstream  they  lift  away  from 
the  wall  and  violently  interact  with  the  turbulent  fluid  outside  the  wall 
region.  This  ejection  of  low  momentum  fluid  has  been  called  "bursting". 

The  two  structural  parameters,  A,  the  spanwise  spacing  of  dye  streaks,  and 
Tg,  the  bursting  period,  are  independent  of  Reynolds  number  when  made 
dimensionless  with  wall  parameters,  kinematic  viscosity  v  and  friction 
velocity  u*  [Kim  et  al.  (1971),  Blackwelder  and  Haritonidis  (1983)]. 

Because  these  coherent  eddy  structures  are  believed  to  control  the  gener¬ 
ation  of  turbulence  in  wall  bounded  shear  flows,  it  is  of  considerable 
importance  to  understand  why  these  structures  form  and  the  interaction 
between  them  and  the  rest  of  the  flow. 

This  work  is  part  of  a  research  program  that  has  as  its  main  goals  the 
understanding  of  the  processes  by  which  wall  turbulence  is  produced  and 
sustained  and  an  understanding  of  how  these  processes  can  be  altered  by 
structural  changes  in  the  flow.  The  practical  aspect  of  this  research  is 
that  it  provides  a  theoretical  basis  for  determining  how  wall  turbulence 
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can  be  controlled  and  how  turbulent  drag  can  be  decreased. 

Specifically,  this  thesis  presents  the  results  of  a  study  Investigating 
the  effects  of  an  imposed  pressure  gradient  on  the  viscous  wall  region. 

Only  imposed  pressure  gradients  homogeneous  In  the  streamwise  direction  are 
considered.  The  computational  model  of  the  viscous  wall  region  proposed  by 
Nikolaides  (1984)  was  used  to  Investigate  imposed  pressure  gradients  that 
are  steady  in  time.  An  experimental  program  was  also  carried  out  investi¬ 
gating  the  changes  in  the  turbulent  structure  in  the  viscous  wall  region 
due  to  Imposed  pressure  gradients  that  are  varying  sinusoidally  in  time. 

Kline  et  al.(1967)  experimentally  observed  that  the  size  and  period  of 
the  coherent  eddies  could  be  changed  by  Imposing  a  pressure  gradient  on  the 
turbulent  flow.  Favorable  pressure  gradients  (dP/dx  <  0)  were  created  by 
constricting  the  walls  of  the  flow,  while  adverse  pressure  gradients  (dP/dx 
>  0)  were  formed  by  enlarging  the  walls.  By  adjusting  the  walls  correctly 
constant  Imposed  pressure  gradients  in  the  streamwise  direction  could  be 
created.  They  found  that  favorable  pressure  gradients  increased  A  +  and 
Tg+,  and  that  relaminarization  of  the  flow  could  occur  if  the  imposed 
pressure  gradient  was  large  enough.  Adverse  pressure  gradients  were  found 
to  decrease  and  Tg+.  They  also  found  that  there  was  an  inverse 
relationship  between  these  scales  and  the  level  of  turbulent  kinetic  energy 
in  the  flow.  Their  results  clearly  showed  that  the  imposition  of  a 
pressure  gradient  on  a  turbulent  flow  can  cause  dramatic  changes  in  the 
turbulent  structure  in  the  viscous  wall  region. 

Nikolaides  (1984)  investigated  zero  pressure  gradient  flows  with  a 
model  that  solves  the  unaveraged  Navier-Stokes  equations  in  the  viscous 
wall  region.  The  representation  of  the  flow  is  greatly  simplified  by 
neglecting  terms  representing  the  variation  of  hydrodynamic  quantities  in 
the  flow  direction  and  by  representing  the  turbulent  fluctuations  at  the 
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edge  of  the  viscous  wall  region,  y0+,  by  periodic  functions  having  two 
length  scales  and  two  time  scales.  These  calculations  gave  a  fluctuating 
flow  field  in  excellent  agreement  with  presently  available  measurements. 

The  success  of  the  work  of  Nikolaides  in  describing  nonaccelerated 
flows  suggested  using  the  model  to  investigate  the  influence  of  large 
favorable  pressure  gradients  on  wall  turbulence.  In  nonaccelerated  flows 
there  exists  enough  experimental  information  on  the  turbulent  quantities  in 
the  viscous  wall  region  to  be  able  to  specify  the  boundary  conditions  at 
the  edge  of  the  viscous  wall  region.  Unfortunately  in  accelerated  flows 
the  experimental  information  necessary  to  determine  the  boundary  conditions 
at  y0+  are  not  available;  therefore,  it  became  necessary  to  develop 
relations  that  describe  the  scaling  of  the  coherent  structures  in  the 
viscous  wall  region  as  a  function  of  acceleration. 

Imposing  a  favorable  pressure  gradient  has  several  effects  on  the 
turbulence  in  the  viscous  wall  region.  The  fluctuations  become  less 
vigorous,  the  thickness  of  the  viscous  wall  region,  y0+,  increases  and  the 
shear  stress  at  y0+,  normalized  with  the  wall  shear  stress,  decreases  below 
the  nonaccelerated  value  of  1 .  By  using  the  local  shear  stress  at  yo+,  t0, 
instead  of  the  wall  shear  stress,  the  mixing  length  scaling  arguments  at 
y0  +  proposed  by  Nikolaides  were  modified  to  take  into  account  these 
differences,  A  relation  developed  by  Julien  et  al.  (1969)  using  similarity 
arguments  for  the  prediction  of  the  shear  stress  profile  is  used  to  obtain 
r0+.  This  relationship  is  different  from  the  frequently  used  Couette 
relation  in  that  it  is  recognized  that  only  a  fraction  of  the  imposed 
pressure  gradient  contributes  to  changing  the  shear  stress  distribution; 
the  remainder  of  the  imposed  pressure  gradient  is  used  to  change  the 
inertia  of  the  flow. 

The  imposition  of  a  sinusoidal  pulsation  of  the  mean  flow  through  a 
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circular  pipe  causes  a  periodically  varying  pressure  and  velocity  field. 
If  the  amplitude  is  ssall  enough,  the  variation  can  be  described  by  a 
single  harsonic, 


dx 


dx 


cos(<ot) 


(1.1) 


u  =  |u|cos(cot  +  0u(y) ) 


(1-2) 


with  x  being  the  distance  in  the  strearawise  direction  and  t  the  time.  The 
angular  frequency  and  the  amplitudes  of  the  pulsations  are  represented  by 
a),  |dp/dx|  and  |u|,  respectively.  The  pulsations  in  the  velocity  field 
give  rise  to  pulsations  in  the  shear  stress  at  the  wall, 

rw  =  |rw|  cos(wt  +  9ZJ  (1.3) 


where 


dU 

rw  =  /“  ~r 
w  dy 


y-*0 


(1.4) 


and 


6X  =  lim  0U( y). 
w  y-*0 


(1.5) 


Experiments  were  carried  out  in  a  two  inch  pipe  flow  loop  that  was 
built  to  measure  the  wall  shear  stress  variation  in  turbulent  pulsating 
pipe  flow  using  a  technique  that  does  not  interfere  with  the  flow.  This 
technique  involves  carrying  out  an  electrochemical  reaction  on  the  surface 
of  a  platinum  electrode  mounted  flush  with  the  wall.  The  current  flow  in 
the  electrochemical  cell  is  controlled  by  the  rate  of  mass  transfer  to  the 
surface.  Because  the  cell  is  operated  at  a  high  Schmidt  number,  the 
velocity  fluctuations  near  the  wall  determine  the  rate  of  mass  transfer.  By 
measuring  the  current  fluctuations  in  the  electrochemical  cell,  the 
velocity  fluctuations  close  to  the  surface  were  determined. 


i 


5 

A  number  of  previous  investigators  have  studied  the  influence  of 
controlled  flow  pulsations  on  turbulent  flows.  Previous  results  have 
indicated  that  the  influence  of  the  pulsations  on  the  mean  properties  of 
the  flow  is  very  small  and  that  their  effect  on  the  turbulence  is  felt 
primarily  in  the  region  close  to  the  wall.  Unfortunately,  in  most  previous 
studies  accurate  velocity  measurements  could  not  be  made  close  enough  to 
the  wall  to  determine  the  time  varying  velocity  gradient  at  the  wall. 

Thus,  there  exists  a  need  for  accurate  measurements  of  the  time  varying 
wall  shear  stress.  Measurements  of  the  wall  shear  stress  at  low  frequen¬ 
cies  of  pulsation  were  reported  by  Tu  and  Ramaprian  (1983)  using  flush 
mounted  wall  heat  transfer  probes.  They  found  that  the  time  average  wall 
shear  stress  was  the  same  for  pulsating  and  steady  flow  i.e.  no  change  in 
drag  was  observed.  Binder  et  al .  (1985)  also  found  no  change  at  higher 
frequencies.  They  systematically  varied  the  frequency  by  a  factor  of  15 
and  the  amplitude  from  5  to  70%  of  the  centerline  velocity.  Neither  the 
mean  velocity  profile  nor  the  mean  turbulent  energy  distribution  was 
altered  despite  the  large  forcing  amplitudes  which  contained  an  order  of 
magnitude  more  energy  than  the  random  fluctuations.  They  concluded  that  in 
the  wall  region  the  appropriate  scaling  parameter  is  the  dimensionless 
Stokes  length  6g=  (2/«+)^.  The  variation  of  the  turbulent  wall  shear 
stress  fluctuations  was  found  to  depend  on  both  the  amplitude  and  frequency 
of  pulsation. 

The  study  of  Mao  and  Hanratty  (1986)  in  an  eight  inch  pipe  focused  on 
measurements  of  the  wall  shear  stress  at  high  a>+ .  They  found  that  the 
phase  and  amplitude  of  the  wall  shear  stress  variation  could  be  correlated 
by  the  single  parameter  a>+  and  that  the  mean  velocity  field  was  unaffected 
by  the  Imposed  flow  pulsation.  The  most  striking  feature  of  their  results 
was  a  relaxation  effect,  whereby  the  phase  angle  characterizing  the 
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temporal  variation  of  the  wall  shear  stress  underwent  a  sharp  change  over  a 
very  narrow  range  of  <u+.  They  suggested  that  at  low  frequencies  an 
equilibrium  situation  exists  whereby  the  flow  behaves  similarly  to  that 
observed  in  constant  pressure  gradient  flows.  Phases  of  the  pulsation  with 
a  favorable  pressure  gradient  experience  a  damping  of  the  turbulence  in  the 
viscous  wall  region;  phases  with  an  adverse  pressure  gradient  experience  an 
enhancement  of  the  turbulence.  As  «+  increases  the  pressure  gradient 
varies  so  rapidly  that  the  turbulence  in  the  viscous  wall  region  does  not 
respond  immediately.  This  relaxation  phenomena  has  also  been  observed  in 
flow  over  wavy  surfaces  [Abrams  and  Hanratty  (1985)].  Many  of  the  conclu¬ 
sions  made  by  Mao  and  Hanratty  (1986)  relied  upon  the  analogy  between  the 
two  flows  because  their  data  did  not  extend  into  the  equilibrium  range.  At 
higher  o>+  than  the  bursting  frequency  they  observed  a  highly  nonlinear 
interaction  between  the  imposed  pulsation  and  the  turbulent  fluctuations. 
Their  data  for  the  variation  of  the  wall  shear  stress  at  high  <a+ ,  which  was 
still  linear,  was  found  not  to  agree  with  the  limiting  Stokes  solution. 

The  principal  goal  of  the  present  experiments  was  to  measure  the  wall 
shear  stress  variation  over  a  wider  range  of  <o+  than  measured  by  Mao  and 
Hanratty.  The  use  of  a  two  inch  pipe  provides  higher  turbulent  wall  shear 
stresses,  and  therefore  lower  to'1',  than  the  eight  inch  pipe  used  by  Mao. 
Sinusoidal  pulsations  with  frequencies  ranging  from  0.2  Hz  to  1.5  Hz  were 
introduced  into  the  system  with  a  reciprocating  piston  pump.  The  variation 
of  the  centerline  velocity  was  held  constant  at  10X  for  all  the  runs. 

A  test  section  was  fabricated  with  multiple  probes  in  order  to  measure 
transverse  spatial  correlation  coefficients  of  the  streamwise  velocity 
fluctuations  near  the  pipe  wall.  These  measurements  were  used  to  estimate 
the  variation  of  the  eddy  length  scale  through  a  period  of  pulsation. 
These  measurements,  believed  to  be  the  first  of  their  kind  for  a  pulsating 
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pipe  flow,  indicate  that  a  substantial  variation  of  X+  occurs  in  the 
equilibrium  region  of  the  flow.  The  relaxation  phenomena  observed  by  Mao 
was  confirmed  by  the  measurements  of  However,  an  unexpected  highly 

nonlinear  large  variation  of  /1+  was  observed  at  a>+  values  higher  than  the 
bursting  frequency.  At  present,  this  behavior  at  high  o+  cannot  be 
explained. 
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CHAPTER  2.  LITERATURE  SURVEY 

Considerable  experimental  and  theoretical  work  has  been  done  in  the 
past  to  elucidate  why  coherent  structures  fora  in  wall  bounded  turbulent 
shear  flows.  Flow-visualization,  Multiple  probe  measurements  and  direct 
numerical  siaulation  have  provided  key  Information  about  the  structures  and 
their  interactions  with  the  rest  of  the  flow.  Recently,  these  tools  have 
been  used  to  look  at  turbulent  shear  flows  under  the  influence  of  an 
imposed  pressure  gradient.  Important  knowledge  about  the  properties  of  the 
structures  in  the  viscous  wall  region  has  been  gained  by  observing  the 
response  of  these  structures  to  the  imposed  pressure  gradient.  This 
chapter  surveys  the  work  that  has  been  done  in  the  past  in  this  area  and  is 
divided  into  three  sections:  1)  zero  pressure  gradient  flows,  2)  constant 
pressure  gradient  flows,  and  3)  pulsating  pressure  gradient  flows. 

I .  Zero  Pressure  Gradient  Turbulent  Flows 

Most  of  the  experimental  and  theoretical  studies  in  the  past  have 
focused  on  wall  bounded  shear  flows  without  imposed  pressure  gradients. 
Thus,  a  significant  amount  of  information  is  known  about  these  flows. 

Since  this  study  is  concerned  with  changes  in  a  normal  flow  associated  with 
the  imposition  of  a  pressure  gradient,  a  review  of  the  nonaccelerated 
literature  is  pertinent. 

A.  Description  of  the  Viscous  Wall  Region 

Turbulent  flow  in  a  pipe  or  channel  is  conventionally  separated  into 
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four  regions:  the  viscous  sublayer,  the  buffer  region,  the  logarithmic 
region,  and  the  wake  or  core  region.  The  first  two  make  up  the  viscous 
wall  region.  Wall  turbulence  is  scaled  by  nondimensionalizing  all  quanti¬ 
ties  with  wall  parameters,  the  kinematic  viscosity  v  and  the  friction 
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velocity  u*.  In  terms  of  these  dimensionless  quantities,  the  viscous 
sublayer  extends  from  y+  =  0  to  y+  =  6.  In  this  region  the  mean  velocity 
profile  is  linear  U+  ■  y+  and  viscous  effects  dominate.  In  the  buffer 
region  (8  <  y+  <  40),  both  viscous  and  inertial  effects  are  important. 
Outside  the  viscous  wall  region  viscous  effects  are  negligible  and  the  mean 
velocity  profile  is  logarithmic,  U+  =  \/k  ln(y+)  +  A,  hence  the  name 
logarithmic  region. 

Turbulent  flows  require  a  statistical  description  because  the  velocity 
and  pressure  fields  vary  randomly  in  space  and  time.  This  statistical 
description  begins  by  assuming  a  Reynolds  decomposition  of  the  velocity  and 
pressure  fields,  Uj  =  Uj  +  uj  and  P  =  P  +  p.  Then  various  combinations 
of  these  quantities  and  their  derivatives  are  measured  and  averaged  in 
space  and  time  to  give  a  description  of  the  turbulent  flow.  These  measure¬ 
ments  are  in  the  form  of  mean  velocities,  intensities,  Reynolds  stresses, 
other  higher-order  moments  of  the  velocity  fluctuations,  probability 
distributions,  correlations  and  various  spectra.  A  survey  of  turbulence 
measurements  in  nonaccelerated  flows  is  given  in  Nikolaides  (1984)  and  will 
not  be  reproduced  here. 

B .  Coherent  Structures  in  the  Viscous  Wall  Region 

In  a  bounded  shear  flow,  there  exist  coherent  structures  that  have 
characteristic  length  scales  and  lifetimes.  Spectral  and  correlation 
measurements  indicate  the  existence  of  large-scale  structures  [Townsend 
(1976),  Grant  (1958),  Bakewell  and  Lumley  (1967)],  but  clear  evidence 
wasn't  obtained  until  visual  techniques  were  used  [Corrsin  (1956),  Kline 
et.  al.  (1967),  Corino  and  Brodkey  (1969),  Kim  et.  al .  (1971)]. 

The  dye  experiments  of  Beatty,  Ferrell,  and  Richardson  [Corrsin  (1956)] 
and  by  Hama  [Corrsin  (1956)]  revealed  a  streaky  structure  in  the  viscous 
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wall  region  that  repeats  in  the  spanwise  direction  and  is  greatly  elongated 
in  the  streamwise  direction.  Other  experimenters  also  used  dye  to  visual¬ 
ize  these  wall  streaks  [Kline  and  Runstadler  (1959),  Runstadler  et.  al . 
(1963),  Offen  and  Kline  (1974)]. 

Subsequent  studies  used  hydrogen  bubble  techniques  [Kline  et.  al. 

(1967),  Kim  et.  al .  (1971)]  because  this  method  can  give  quantitative 
information  about  the  flow  field.  The  Stanford  group  confirmed  the 
existence  of  the  streaky  structure  in  the  viscous  wall  region  and  correctly 
interpreted  that  the  wall  dye  streaks  are  regions  of  low  streamwise 
momentum  fluid,  and  the  regions  between  streaks  contain  fluid  high  in 
streamwise  momentum.  Kim  et'.  al.  (1971)  found  the  dimensionless  spanwise 
spacing  of  the  wall  streaks  to  be  100  ±  20.  The  Stanford  group  also 
observed  the  wall  streaks  undergoing  a  deterministic  sequence  of  recurring 
events:  the  formation  of  a  low-speed  streak  and  the  beginning  of  a 

vertical  oscillation  (8  <  y+  <  12),  the  amplification  of  this  oscillation 
followed  by  an  abrupt  breakup  (10  <  y+  <  40).  The  entire  process  was 
termed  a  "burst"  by  Kline  and  his  coworkers.  The  ejection  of  low  stream- 
wise  velocity  fluid  from  the  wall  into  the  outer  flow  is  the  essential 
feature  of  this  structure.  A  return  flow  is  required  by  continuity  and 

this  return  flow  to  the  wall,  called  a  sweep  or  inrush,  was  observed  in 

almost  every  case  just  before  the  onset  of  the  oscillations  of  the  lifting 
wall  streak.  The  sweeps  were  observed  to  be  associated  with  transverse  and 
streamwise  vortical  motions  [Offen  and  Kline  (1974)]. 

The  Ohio  State  group  [Corino  and  Brodkey  (1969),  Nychas  et.  al.  (1973), 

Praturi  and  Brodkey  (1978)]  has  also  made  an  extensive  study  of  the  wall 

region  using  other  visualization  techniques.  Their  findings  confirmed  the 
bursting  process  as  well  as  the  sweep  event  described  by  the  Stanford 
group. 
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Bakewell  and  Lumley  (1967)  suggested  that  the  wall  streaks  result  from 
counterrotating  pairs  of  eddies  homogeneous  in  the  flow  direction.  Sirkar 
and  Hanratty  (1970)  al90  suggested  that  the  flow  in  the  wall  region  is 
dominated  by  a  secondary  pattern  homogeneous  in  the  flow  direction  that  is 
of  the  type  shown  in  Figure  2.1a.  Their  results  suggest  that  the  streaks 
observed  when  dye  is  injected  from  a  wall  slot  result  from  the  sweeping 
action  of  the  secondary  flow  in  the  spanwise  direction  close  to  the  wall. 

Several  investigators  carried  out  measurements  to  determine  the 
spanwise  spacing  of  the  wall  streaks.  The  streak  spacing  can  be  determined 
by  visual  observation,  by  determining  the  value  that  maximizes  the  Fourier 
transform  of  the  spanwise  correlation  of  the  streamwise  velocity  close  to 
the  wall,  or  by  inference  from  correlation  measurements.  Coantic  (1967) 
and  Bakewell  and  Lumley  (1967)  calculated  A+  from  correlation  measurements 
taken  with  hot  wire  probes.  Coantic  obtained  A+  s  110  -130  and  Bakewell 
and  Lumley  calculated  =  100.  Lee  et.  al .  (1974)  measured  s  105  from 
correlation  measurements  obtained  using  electrochemical  wall  probes.  Gupta 
et.  al .  (1971)  obtained  spanwise  correlations  of  the  streamwise  velocity 
below  y+  =  12  and  found  A+  =  95.  Clark  (1968)  measured  A*  =  100  from 
hydrogen  bubble  experiments. 

The  mean  bursting  period,  Tg,  has  also  been  measured  experimentally. 
There  has  been  disagreement  about  the  universal  scaling  of  Tg.  Originally, 
it  was  concluded  that  Tg  scaled  with  outer  flow  variables,  U«,,  the  free 
stream  velocity,  and  <5*,  the  displacement  thickness  [Rao  et.  al .  (1971), 
Kim  et.  al .  (1971)].  Other  investigators  have  found  Tg  to  scale  with  wall 
parameters  (Meek  (1972),  Blackwelder  and  Kaplan  (1976),  Blackwelder  and 
Eckelmann  (1978)].  Recent  evidence  presented  by  Blackwelder  and  Haritoni- 
dis  (1983)  shows  the  outer  scaling  observed  by  Rao  et.  al.  (1971)  may  be  in 
error  due  to  the  large  size  of  the  probes  used  in  their  measurements. 


Blackwelder  and  Haritonidis  report  Tg+  s  250.  The  data  of  Donohue  et.  al . 
(1972)  give  Tg+  =  99  -  172.  Schraub  and  Kline  (1965)  and  Runstadler  et. 
al.  (1963)  report  Tg+  s  110  and  142  respectively.  The  data  of  Kim  et.  al . 
(1971)  show  Tg  +  =  80  -  109. 

The  scatter  in  the  results  from  the  different  methods  and  investigators 
illustrates  the  level  of  intricacy  involved  in  making  these  types  of 
measurements.  However,  it  appears  that  both  the  spanwise  spacing  of  the 
wall  streaks  and  the  mean  bursting  period  scale  with  wall  parameters  and 
that  they  have  values  of  the  order  of  100  in  dimensionless  units. 

C .  Modelling  of  Turbulent  Flows 

Numerical  simulation  of  a  turbulent  flow  can  provide  the  turbulent 
velocity  and  pressure  fields  as  a  function  of  space  and  tine,  which  can 
then  be  used  to  compute  quantities  that  are  very  difficult,  if  not  impos¬ 
sible,  to  measure.  The  Navier-Stokes  equations  apply  to  turbulent  flows  as 
well  as  laminar  flows,  but  the  computation  of  a  turbulent  flow  field  using 
these  equations  is  extremely  difficult  due  to  the  wide  range  of  scales  that 
have  to  be  captured.  With  the  advent  of  supercomputers,  direct  simulations 
using  the  full  equations  have  only  recently  been  performed  [Moser  and  Moin 
(1984)]  and  remain  limited  in  application  due  to  the  cost  involved.  In 
place  of  the  full  unsteady  solutions,  various  approaches  have  been  taken  to 
model  turbulent  flows. 

1 .  Turbulence  Closure  Models 

In  this  approach  a  Reynolds  decomposition  is  assumed  for  all  the  flow 
variables  in  the  Navier-Stokes  equations.  These  equations  are  then  time 
averaged.  The  resulting  Reynolds  stresses  are  modelled  (Rod!  (1980)]. 

These  models  are  commonly  based  on  eddy-viscosity  and  mixing  length 
arguments.  The  resulting  set  of  equations  is  termed  a  zero-equation  model. 
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One-equation  models  involve  an  additional  partial  differential  equation, 
usually  the  turbulent  kinetic  energy  equation.  The  eddy  viscosity  is  then 
related  to  the  turbulent  kinetic  energy.  At  this  time,  the  models  which 
appear  to  have  the  most  promise  for  engineering  calculations  are  the 
two-equation  models.  These  models  use  one  more  partial  differential 
equation  to  describe  the  transport  of  isotropic  dissipation.  The  Reynolds 
stresses  are  modelled  as  functions  of  the  turbulent  kinetic  energy,  k,  and 
the  dissipation  of  energy,  e.  This  nomenclature  has  given  rise  to  the  name 
"k-e  model".  Other  models  are  more  complex  and  some  involve  solving  the 
complete  Reynolds  stress  tensor.  It  Is  not  clear  that  the  most  complex 
models  are  of  more  value  than  the  k-e  models,  since  all  the  models  are 
based  on  empirical  constants  and  assumptions. 

The  basic  problem  with  the  full  closure  method  is  that  the  higher  order 
statistical  quantities  being  modelled  respond  on  time  scales  that  are 
longer  than  the  time  scales  of  the  computed  quantities.  Any  model  obtained 
by  truncating  at  some  statistical  order  has  this  problem.  The  next  level 
of  complexity  in  turbulence  modelling  avoids  this  difficulty  by  utilizing 
the  full  set  of  flow  equations  along  with  a  closure  assumption  for  only  the 
small  scale  motion.  The  advantage  of  this  method  is  that  the  smaller 
scales  adjust  quickly  to  local  flow  conditions.  Such  models  are  termed 
subgrid  scale  approximations  in  a  large-eddy  simulation,  LES. 

2.  Large-Eddy  Simulation 

This  approach  uses  the  full  three-dimensional  time-dependent  Navier- 
Stokes  equations  to  compute  the  turbulence,  but  recognizes  that  it  is  very 
costly  to  compute  the  details  of  the  smallest  scales.  Therefore,  the  method 
employs  a  closure  model  only  for  the  scales  smaller  than  a  selected  cutoff 
length  I.  To  do  this,  a  filter  is  applied  to  the  flow  equations  which 
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introduces  a  Reynolds  stress  for  the  flow  with  length  scales  less  than  2.  A 
variety  of  filters  and  subgrid  scale  approximations  have  been  developed  in 
the  past  20  years  [Smagorinsky  et.  al.  (1965),  Lilly  (1967),  Schumann 
(1975),  Ferziger  (1977),  Clark  et .  al .  (1979)], 

Deardorff  (1970)  was  the  first  to  demonstrate  the  feasibility  of  using 
LES  to  do  a  three-dimensional  calculation.  Deardorff  simulated  plane 
channel  flow  using  6,720  mesh  points.  Artificial  boundary  conditions  away 
from  the  wall  were  introduced  in  order  to  avoid  calculating  the  flow  in  the 
viscous  wall  region.  The  wall  region  was  not  treated  until  Moin  et.  al. 
(1978)  calculated  the  three-dimensional  time -dependent  turbulence  in  a 
channel  using  16,640  grid  points.  Their  numerical  results  showed  reason¬ 
able  agreement  with  experimental  measurements  but  their  mesh  sizes  were  too 
large  to  resolve  the  scales  close  to  the  wall.  Since  then,  Moin  and 
Kim  (.1982)  simulated  fully  developed  turbulent  flow  in  a  channel  using 
516,096  grid  points  and  were  able  to  capture  the  scales  close  to  the  wall. 
Their  turbulent  statistics  agreed  well  with  experimental  data,  and  in 
addition,  they  found  turbulence  structures  in  the  vicinity  of  the  channel 
wall  similar  to  those  observed  experimentally,  such  as  wall  streaks, 
streamwise  vortical  motions,  and  horseshoe  vortices  (Kim  and  Moin  (1984)]. 

3 .  Simple  Eddy  Models 

This  method  has  also  been  termed  "coherent-structure"  modelling  in  that 
an  attempt  is  made  to  model  the  organized  quasi -periodic  eddy  structures  in 
the  wall  layer.  In  order  to  do  this,  the  turbulent  velocities  are  modelled 
at  the  outer  edge  of  the  viscous  wall  region.  The  flow  field  is  assumed  to 
be  homogeneous  in  the  streamwise  direction  and  the  resulting  form  of  the 
time-dependent  Navier -Stokes  equations  is  solved  on  a  plane  perpendicular 
to  the  flow. 
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Fortuna  and  Hanratty  [Fortuna  (1971),  Hanratty  et.  al.  (1977)]  assumed 
that,  on  average,  the  streamlines  In  the  secondary  flow  have  the  shape 
shown  in  Figure  2.1a,  and  used  a  pseudosteady  state  assumption  to  calculate 
the  streamwise  velocity  component.  They  pictured  the  secondary  flow  to 
bring  high  momentum  fluid  to  the  wall  at  A,  to  exchange  momentum  with  the 
wall  as  it  moved  fluid  in  the  spanwise  direction  from  A  to  B  and  to  remove 
low  momentum  fluid  from  the  wall  at  B.  According  to  this  picture,  the 
streamwise,  sx,  and  the  spanwise,  sz,  components  of  the  velocity  gradient 
at  the  wall  should  have  the  phase  relation  shown  in  Figures  2.1b  and  2.1c. 
This  has  been  confirmed  in  experiments  by  Lee,  Eckelman  and  Hanratty  (1974) 
and  by  Hogenes  and  Hanratty  (1982). 

Hatziavramidis  and  Hanratty  (1979)  undertook  a  computational  study  to 
explore  how  the  viscous  wall  region  would  respond  to  spanwise  velocity 
fluctuations  at  its  outer  boundary,  y0+  s  40.  The  basic  model  is  similar 
to  the  one  used  by  Fortuna  (1971)  but  it  was  recognized  that  his  pseudos¬ 
teady  state  assumption  overlooks  important  aspects  of  the  flow.  The  flow 
field  in  the  viscous  wall  region  was  pictured  to  be  coherent  and  to  be 
associated  with  flow  deviations  in  a  well  mixed  outer  region.  The  spanwise 
flow  at  y0+  =  40  was  taken  as  w  =  |w|  sin(2xz/^)cos(2xt/Tg) ,  where  X  is 
the  spacing  of  the  dye  streaks,  Tg,  the  period  between  bursts  and  |w| ,  a 
constant,  whose  value  is  consistent  with  turbulence  measurements.  Good 
agreement  was  obtained  between  the  calculated  flow  field  and  experimental 
results,  especially  for  y+  <  15.  The  most  important  results  coming  from 
the  calculations  of  Fortuna  and  of  Hatziavramidis  are  the  suggestion  of  a 
mechanism  by  which  streamwise  velocity  fluctuations  are  created  and  the 
good  representation  of  the  average  velocity  profile.  These  calculations 
supported  the  notion  that  the  coherent  elongated,  X+  =  100,  structures  are 
the  key  to  understanding  how  wall  turbulence  is  sustained. 
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Figure  2.1  Idealized  coherent  eddy  structure. 


Chapman  and  Kuhn  (1981)  followed  up  the  work  of  Hatziavramidis  by 
improving  the  boundary  conditions  at  the  edge  of  the  viscous  wall  region. 
They  visualized  the  flow  in  the  viscous  wall  region  to  result  from  the 
interaction  of  the  A*  =  100  eddies  with  eddies  that  are  associated  with  a 
"pulsating"  type  of  flow  that  are  on  a  plane  parallel  to  the  wall.  Their 
calculated  Reynolds  stress  and  intensity  profiles  showed  better  agreement 
with  experiments  than  the  computations  of  Hatziavraraidis ,  especially  in  the 
region  20  s  y+  £  40.  However,  the  inclusion  of  a  second  wavelength  of 
infinite  size  produced  spanwise  wall  fluctuations  dramatically  different 
from  measurements. 

Nikolaides  and  Hanratty  [Nikolaides  (1984)]  developed  another  computer 
model  similar  to  Chapmans'  except  that  more  realistic  boundary  conditions 
were  used.  From  examination  of  the  correlation  measurements  of  Grant 
(1958)  and  Tritton  (1967)  and  the  frequency-wavenumber  spectra  of  Morrison 
and  Kronaur  (1969),  they  realized  that  the  wavelength  of  the  outer  flow 
eddies  should  be  about  400  and  not  of  infinite  size.  Nikolaides  found  that 
the  simplest  model  which  gave  results  conforming  to  experiments  is  one 
where  the  secondary  flow  at  the  outer  edge  of  the  viscous  wall  layer, 
y*  =  y0  +  .  is  characterized  by  two  harmonics.  The  use  of  one  harmonic  Mi'1') 
gave  an  adequate  description  for  the  region  y+  <  20,  but  a  second  harmonic 
(yl2+)  representing  the  outer  flow  eddy  interaction  is  required  to  obtain 
good  results  throughout  the  viscous  wall  region. 

One  of  the  interesting  results  of  the  calculations  was  the  identificat¬ 
ion  of  a  selection  process  whereby  the  flow  at  y+  <  20  is  dominated  by  the 
smaller  scale,  s  100,  eddies.  It  was  found  that  the  same  level  of 

Reynolds  stress  is  obtained  regardless  of  whether  one  or  two  wavelengths 
were  used.  This  result  indicates  that  the  s  100  eddies  control  the 
transfer  of  momentum  and  the  production  of  turbulence  in  the  viscous  wall 


region.  The  principal  advantages  of  including  the  large  scale,  At*  a  400, 
eddies  is  that  the  calculations  of  the  spanwise  velocity  fluctuations  and 
the  energy  dissipation  at  y+  >  20  are  much  improved. 

Through  various  arguments,  Nikolaides  developed  the  following  concep¬ 
tual  model  describing  the  interaction  between  the  viscous  wall  region  and 
the  outer  flow.  Streamwise  velocity  fluctuations  are  created  in  the  viscous 
wall  region  and  convected  into  the  outer  flow.  These  streamwise  velocity 
fluctuations  are  converted  to  normal  and  spanwise  velocity  fluctuations  in 
the  outer  flow  through  pressure-velocity  correlations.  The  spanwise  and 
normal  velocity  fluctuations  in  the  bulk  flow  in  turn  "tickle"  the  wall 
region  to  create  the  flow  oriented  wall  eddies  that  generate  turbulence. 

Drag  is  determined  by  the  small  eddies  at  the  edge  of  the  viscous  wall 
region  whose  scale  (the  microscale  of  turbulence)  is  governed  by  dissipa¬ 
tion  processes  in  the  outer  flow. 

Lyons  (1985)  used  the  Nikolaides  model  to  develop  an  understanding  of 
how  a  particular  value  of  ^i+  is  established  in  a  turbulent  flow.  By 
varying  ><i+  in  the  model  it  was  shown  that  the  dominant  wall  eddy  size  is 
the  one  for  which  the  net  production  of  turbulence  in  the  viscous  wall 
region  is  just  enough  to  supply  the  energy  dissipated  in  the  core  region  of 
a  pipe  or  channel.  Using  this  criteria,  the  model  predicted  the  dominant 
wavelength  should  be  about  93.  This  result  is  very  close  to  the  experimen¬ 
tally  observed  value  of  100. 

Recently,  Ota  and  Chapman  (1985)  used  a  two-harmonic  model  to  determine 
the  variation  of  the  turbulent  Prandtl  number  across  the  viscous  wall 
region.  It  was  determined  that  the  dependence  of  the  turbulent  Prandtl 
number  on  pressure  gradient  is  negligible;  but  that  the  dependence  on 
molecular  Prandtl  number  is  sizable  near  the  wall  (y+  <  3).  The  turbulent 
Prandtl  number  was  found  to  be  essentially  constant  throughout  most  of  the 


viscous  wall  region. 


The  last  two  studies  illustrate  the  usefulness  of  "coherent- 
structure"  modelling.  Because  of  the  assumption  of  homogeneity  in  the 
streamwise  direction,  the  strearawise  momentum  equation  is  decoupled  from 
the  two  momentum  equations  normal  to  the  flow.  Associated  with  this 
decoupling  is  a  tremendous  savings  in  computer  time;  therefore,  practical 
engineering  calculations  can  be  made.  The  key  to  the  success  of  these 
models  is  that  they  describe  the  structures  that  are  responsible  for  the 
transfer  of  energy  from  the  mean  flow  to  the  turbulence  and  the  level  of 
the  Reynolds  stresses  in  the  flow. 


1 1 .  Constant  Pressure  Gradient  Turbulent  Flows 

An  equilibrium  boundary  layer  is  one  that  has  developed  in  an  Imposed 
pressure  gradient  so  that  the  parameter 
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is  a  constant,  where  R2,  H,  and  Cf  are  the  conventionally  defined 
momentum -thickness  Reynolds  number,  shape  factor  and  skin-friction  coeffi¬ 
cient  respectively.  Terra  K  is  the  acceleration  parameter  defined  as 


K  = 


v  dUoo 
Uoo2  dx 


(2.2) 


where  Um  is  the  free-stream  velocity.  A  constant  (3  implies  that  the 
characteristic  viscous  and  turbulence  scales  develop  at  the  same  rate  even 
though  the  free-stream  velocity  is  varying.  When  equilibrium  is  reached, 
all  of  the  velocity  profile  outside  the  viscous  wall  region  is  self¬ 
preserving  if  plotted  in  velocity-defect  coordinates. 

A  subset  of  equilibrium  flows  is  the  similar  sink  flow.  In  this  type 


of  flow,  each  of  the  quantities  on  the  right-hand  side  of  (2.1)  are 


constant.  Since  the  skin-friction  coefficient 
flows  can  also  be  described  by  P+,  the  imposed 
dimensionless  with  wall  parameters, 


P+ 


v  dP 

*3  j  ’ 
pu  dx 


is  constant,  similar  sink 
pressure  gradient  made 
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since 
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Launder  and  Stinchcombe  (1967)  have  shown  that  for  (9  <  0.5,  the  Reynolds 
number  will  increase  indefinitely  with  x.  For  |3  >  0.5,  the  boundary  layer 
would  approach  asymptotically  the  similar  sink  flow  condition. 

Favorable  imposed  pressure  gradients  (dP/dx  <  0)  can  be  created  by 
constricting  the  walls  of  a  turbulent  flow.  By  conservation  of  mass,  this 
constriction  accelerates  the  fluid.  Thus,  flows  with  favorable  imposed 
pressure  gradients  are  very  often  called  accelerated  flows  in  the  litera¬ 
ture.  Both  descriptions  are  used  in  this  thesis. 

The  relevant  experimental  investigations  surveyed  can  be  categorized 
as  1)  mild  pressure  gradients  of  the  asymptotic  similar  sink  flow  type,  or 
2)  strong  pressure  gradient  flows  where  the  onset  of  relaminarization  is  of 
major  concern.  Relaminarization  is  defined  here  as  the  point  at  which  a 
turbulent  flow  cannot  be  sustained  and  reversion  to  laminar  flow  will  occur 
given  sufficient  distance.  The  experimental  data  in  both  cases  are  very 
difficult  to  obtain  because  the  acceleration  of  the  flow  makes  the  viscous 
wall  region  much  thinner  than  in  a  normal  flow.  However,  the  experimental 


studies  that  have  been  made  are  complementary  and,  thus,  it  is  possible  to 
present  a  fairly  complete  overview. 

Schraub  and  Kline  (1965)  examined  the  viscous  sublayer  structure  of 
accelerated  turbulent  boundary  layers  using  dye  injection  and  hydrogen 
bubble  techniques.  They  found  that  the  organized  motions  in  the  viscous 
sublayer  (known  as  bursting)  did  not  abruptly  stop  above  a  certain  level  of 
acceleration  but,  instead,  progressively  decreased  as  K  was  increased. 

Their  data  are  shown  in  Figure  2.2.  The  bursting  period  was  calculated 
from  their  measured  bursting  frequency  and  streak  spacing  data  using  the 
following  relation 


As  seen  from  their  results,  accelerating  the  boundary  layer  gives  rise  to 
an  increase  in  both  the  streak  spacing  and  bursting  period.  However,  it 
should  be  noted  that  they  do  not  increase  at  the  same  rate;  the  bursting 
period  rises  faster  than  the  streak  spacing.  Relaminarization  of  the  flow, 
defined  by  Kline  et.  al.  as  the  point  at  which  the  production  of  turbulent 
kinetic  energy  is  zero,  occurred  at  a  value  of  K  s  3.7xl0~6.  This  result 
was  in  agreement  with  the  value  of  K  s  3.5x10'  obtained  by  Moretti  and 
Kays  (1965),  who  studied  heat  transfer  in  accelerated  turbulent  boundary 
layers . 

As  the  level  of  the  Imposed  pressure  gradient  is  increased,  the  mean 
velocity  profile  is  known  to  exhibit  a  smooth  shift  from  a  typical 
turbulent  velocity  profile  towards  that  corresponding  to  a  laminar  boundary 
layer.  This  shift  is  characterized  by  an  "overshoot"  of  the  velocity 
profile  from  the  log-law,  and  a  decrease  in  the  wake  region.  Thus,  the 
logarithmic  region  is  observed  to  decrease  in  extent  as  the  level  of  the 
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Figure  2.2  Variation  of  the  streak  spacing  and  bursting  period  with 
pressure  gradient  [Kline  (1965)] 


imposed  pressure  gradient  is  increased.  This  disappearance  of  the  logar¬ 
ithmic  region  has  been  suggested  [Patel  (1965),  Launder  and  Stinchcombe 
(1967),  Badri  Narayanan  and  Ramjee  (1969),  Blackwelder  and  Kovasznay 
(1972),  and  Okaiaoto  and  Misu  (1977)]  to  mark  the  beginning  of  the  relami¬ 
narization  of  a  turbulent  flow.  Bradshaw  (1969)  suggests  that  when  the 
logarithmic  region  disappears,  the  energy-containing  and  dissipating  eddies 
overlap  in  size  and  relaminarlzation  will  occur. 

The  study  of  Patel  and  Head  (1968)  was  concerned  with  the  initial 
stages  of  relaminarization  with  the  objective  of  defining  as  closely  as 
possible  the  conditions  leading  to  the  breakdown  of  the  turbulent  flow.  It 
was  suggested  that  the  favorable  pressure  gradient  and  its  effect  on  the 
wall  region  of  the  flow  was  primarily  responsible  for  the  changes  in  the 
flow  and  not  some  outer  layer  Reynolds  number.  Relaminarization  was  said 
to  occur  when  the  production  and  dissipation  of  turbulent  kinetic  energy  in 
the  logarithmic  region  deviated  from  equilibrium.  They  used  the  theory  of 
Townsend  (1961),  which  is  based  on  a  mixing -length  model  for  an  equilibrium 
flow,  and  the  assumption  of  a  linear  shear  stress  distribution  to  obtain  an 
equation  relating  U+  to  the  shear  stress  gradient,  Ar+,  where 
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This  shear  stress  gradient  is  only  a  function  of  the  pressure  gradient  and 
local  flow  accelerations  and  not  the  distance  from  the  wall.  The  value  of 
Ar+  at  which  their  derived  relation  failed  to  predict  the  measured  mean 
velocity  profile  was  concluded  to  be  the  beginning  of  relaminarization. 

They  suggested  that  for  Ar+  <  -0.009  fully  developed  turbulent  flow  could 
not  be  maintained. 

Jones  and  Launder  (1972)  studied  accelerated  flows  corresponding  to  K  = 


1.5x10"®,  2.5x10"®  and  3.0x10"®.  Streamwise  turbulent  fluctuation 
measurements  were  made  at  the  three  levels  of  accelerations.  At  the 
highest  acceleration,  an  asymptotic  flow  could  not  be  established  as  the 
flow  was  still  changing  at  the  end  of  the  test  section.  In  the  viscous 
wall  region,  the  intensity  profiles  for  the  other  two  accelerations  were 
very  similar.  A  peak  intensity  of  about  2.4  in  wall  units  was  observed  at 
y+  =  15.  Launder  and  Stinchcombe  (1967)  also  noted  a  high  streamwise 
turbulence  intensity,  although  the  bulk  of  the  turbulent  energy  was 
associated  with  irrotational  fluctuations.  Hot-wire  measurements  of  w+' , 
v+ '  and  the  Reynolds  stress  were  also  reported  by  Jones  and  Launder  for  the 
lowest  acceleration.  The  accuracy  of  these  measurements  was  not  very  high 
due  to  the  thinness  of  the  viscous  wall  region.  It  was  found  that  the 
intensity  measurements  were  in  roughly  the  same  proportion  to  each  other  as 
those  found  in  the  nonaccelerated  flow.  Badri  Narayanan  and  Ramjee  (1968) 
noted  that  after  relamlnarization  began  to  occur  the  streamwise  velocity 
fluctuations  decayed  rapidly.  Based  on  their  data  and  a  survey  of  previous 
data,  Jones  and  Launder  suggested  that  the  maximum  skin-friction  coeffi¬ 
cient  possible  in  a  asymptotic  turbulent  flows  is  about  0.005.  This  value 
is  equal  to  the  one  suggested  by  Coles  (1962)  as  the  maximum  attainable  in 
a  nonaccelerated  turbulent  boundary  layer.  As  the  level  of  acceleration 
increased,  Cf  was  observed  to  increase  to  about  0.005  and  then  stay  roughly 
constant  for  K  values  greater  than  1x10“®.  Only  after  relamlnarization 
began  to  occur  did  Cf  decrease  below  the  nonaccelerated  value. 

Narasimha  and  Sreenivasan  (1973)  proposed  that  relamlnarization  is 
primarily  the  result  of  the  domination  of  pressure  forces  over  nearly 
frozen  Reynolds  stresses.  The  completion  of  reversion  according  to  them  is 
when  the  net  effect  of  the  Reynolds  stresses  is  negligible.  Random 
fluctuations  inherited  from  previous  history  will  remain,  but  they  are  no 


longer  relevant  to  the  dynamics  of  the  flow,  which  under  these  circum¬ 
stances  may  be  said  to  have  reached  a  quasi -laminar  state.  This  limit 
occurs  for  sufficiently  large  values  of  a  pressure  gradient  parameter 

A  —  (2.7) 

ro  dx 

where  <5  is  the  boundary  layer  thickness  and  rQ  the  wall  stress  In  the 
boundary  layer  just  before  the  imposed  pressure  gradient  is  applied.  This 
concept  agreed  very  well  with  the  investigation  of  Blackwelder  and  Kovasz- 
nay  (1972)  into  rapidly  rapidly  varying  pressure  gradient  flows  that  showed 
the  turbulent  fluctuations  and  Reynolds  stress  were  approximately  constant 
along  a  mean  streamline.  It  should  be  noted  that  the  pressure  gradient 
parameter,  A  appears  to  be  better  suited  for  rapidly  changing  flows  than 
for  asymptotic  similar  sink  flows. 

Recently,  Spalart  and  Leonard  (1985)  simulated  equilibrium  turbulent 
boundary  layers  using  the  full  three-dimensional,  time-dependent  Navier- 
Stokes  equations.  Similarity  laws  were  used  to  approximate  the  terms 
associated  with  the  slow  spatial  growth  of  the  turbulent  boundary  layer. 
They  obtained  good  agreement  with  the  experimental  data  of  Jones  and 
Launder  (1972)  for  the  flow  with  an  acceleration  of  K  =  1.5xl0-6.  The 
calculations  were  preliminary  in  nature,  but  it  appears  that  this  type  of 
simulation  may  provide  some  key  information  impossible  to  attain  experimen¬ 
tally  in  the  laboratory. 

III.  Pulsating  Pressure  Gradient  Turbulent  Flows 

Research  in  the  area  of  pulsating  turbulent  flow  has  grown  rapidly  in 
recent  years.  This  recent  interest  can  be  associated  with  the  development 
of  instrumentation  and  the  availability  of  new  techniques  of  data  acquisi- 


tion  and  processing.  The  results  from  these  studies  are  needed  to  solve 
such  complex  problems  as  the  flow  of  blood  in  the  arteries  of  the  body  and 
the  oscillating  flow  behind  the  rotors  of  helicopters.  Mao  (1984)  presents 
an  excellent  review  of  the  pulsating  flow  literature  and  only  articles  of 
more  recent  origin  are  surveyed  here.  This  section  begins  with  a  discus¬ 
sion  on  pulsating  laminar  flow  as  this  flow  is  very  similar  to  turbulent 
flow  at  high  dimensionless  frequencies,  w+  =  ton*2 /v .  Then  a  review  of  the 
recent  experimental  studies  in  pulsating  turbulent  boundary  layers  and 
pipes  (or  channels)  flows  are  presented.  Finally,  the  literature  concerned 
with  the  modelling  of  pulsating  turbulent  flows  is  surveyed. 

A.  Pulsating  Laminar  Flow 

Sexl  (1930)  and  Uchida  (1956)  studied  pulsating  laminar  flow  through  a 
pipe.  An  unique  parameter  0  =  rD  Jw7v  was  found  to  characterize  the  flow, 
where  <o  is  the  angular  frequency  and  rG  the  radius  of  the  pipe.  At  very 
low  values  of  0,  the  velocity  profile  of  the  pulsating  component  is  in 
phase  with  the  imposed  variation  of  the  pressure  gradient  and  behaves  like 
that  in  steady  state  flow  with  the  same  mean  flow  rate.  At  very  large 
values  of  0,  the  pulsating  flow  field  moves  like  a  solid  body  in  the  core 
region  of  the  pipe  and  varies  rapidly  close  to  the  wall.  For  this  case  the 
pulsation  velocity  lags  the  pressure  gradient  by  90°  in  the  center  of  the 
pipe,  but  only  by  45°  in  the  neighborhood  of  the  wall  where  viscous  effects 
are  important. 

The  response  of  turbulent  flow  to  an  imposed  pulsation  is  qualitatively 
similar  to  that  of  laminar  flow.  At  very  low  frequencies,  the  velocity 
profile  for  both  flows  at  each  instant  is  the  same  as  that  in  a  steady  flow 
with  the  same  flow  rate.  At  high  frequencies,  the  periodic  velocity 
component  for  both  flows  is  flat  in  the  center  of  the  pipe  and  has  rapid 


variation  near  the  wall.  Mathematically,  this  similarity  is  easy  to 
explain.  The  simplified  equation  describing  the  pulsating  component  of  a 
turbulent  flow  is 


3u  -3p  92u  3r(t) 

p —  =  —  +•  a -  +  — - - 

'at  3 x  ^aya  3y 


(2.8) 


where  r(t)  is  the  turbulent  stresses.  At  high  frequencies,  the  last  two 
terms  are  negligible  except  very  close  to  the  wall  and  the  following 
relationship  results  for  both  laminar  and  turbulent  flows: 


-3p 

3x 


(2.9) 


The  solution  of  (2.9)  for  a  periodically  varying  pressure  and  velocity 
field  given  by  (1.1)  and  (1.2)  is 


wpiu|  = 


dp 


dx 


(2.10) 


and 


0U  =  -s/2  .  (2.11) 

Thus,  wherever  inertia  dominates  the  characteristics  of  the  two  flows  will 
be  very  similar 

Quantitatively,  the  presence  of  the  turbulent  stresses  causes  the  two 
flows  to  be  different.  For  example,  the  frequency  parameter  0,  which 
characterizes  the  laminar  pulsating  flow,  is  no  longer  a  suitable  parameter 
for  the  turbulent  case.  The  amplitude  of  the  imposed  pulsation  and  the 
mean  Reynolds  number  also  affect  the  turbulent  pulsating  flow.  The 
principal  theoretical  problem  in  turbulent  flows  is  the  determination  of 
how  a  pulsating  pressure  gradient  affects  the  turbulent  stresses. 


B .  Measureitents  of  Pulsating  Turbulent  Flow 


A  number  of  previous  investigators  have  studied  the  influence  of 
controlled  flow  pulsations  on  turbulent  flows.  An  excellent  review  has 
recently  been  presented  by  Carr  (1981).  Previous  results  have  indicated 
that  the  influence  of  the  pulsations  on  the  mean  properties  of  the  flow  is 
very  small  and  that  their  effect  on  the  turbulence  is  felt  primarily  in  the 
region  close  to  the  wall.  Unfortunately,  in  most  previous  studies  accurate 
velocity  measurements  could  not  be  made  close  enough  to  the  wall  to 
determine  the  time  varying  velocity  gradient  at  the  wall.  Thus,  there 
exists  a  need  for  accurate  measurements  of  the  time  varying  wall  shear 
stress . 

Ramaprian  and  Tu  (1982, 1983a, 1983b)  reported  detailed  experimental  data 
on  the  instantaneous  velocity  and  wall  shear  stress  at  a  mean  Reynolds 
number  50,000  in  a  fully  developed  turbulent  pipe  flow  in  which  the 
volumetric  flow  rate  was  varied  sinusoidally  with  frequencies  0.5  Hz  and 
3.6  Hz,  and  amplitudes  64*  and  15*  of  the  mean  flow  rate  respectively.  In 
contrast  to  mo3t  other  researchers,  they  concluded  from  their  data  that 
both  the  time  mean  velocity  profiles  and  the  time  mean  turbulent  intensi¬ 
ties  are  affected  by  the  imposed  pulsation.  They  considered  that  these 
effects  are  caused  by  the  combination  of  high  pulsation  frequency  and  large 

amplitude.  The  phase  averaged  turbulent  intensity  data  showed  that  at  high 

frequency  the  turbulent  intensity  remains  frozen  throughout  the  cycle  in 
the  outer  region  and  that  at  lower  frequencies  it  experiences  significant 
variation.  The  authors  also  reported  the  results  of  direct  measurements  of 
the  wall  shear  stress  with  flush  mounted  hot  film  probes.  In  their 
experimental  range,  the  phase  shifts  of  the  wall  shear  stress  were  found  to 
be  of  the  order  of  10  degrees.  However,  since  they  didn't  consider  the 

frequency  response  of  the  probe,  serious  errors  could  be  present  in  the 


results  at  high  frequency. 

Binder  et.  al .  (1985)  measured  periodic  velocity  pulsations  near  the 
wall  in  a  turbulent  pulsating  channel  water  flow.  Results  were  obtained 
for  flows  having  a  centerline  velocity  variation  between  10-70%.  They 
found  the  mean  velocity  and  the  streamwise  turbulent  intensity  to  be 
unchanged  by  the  large  amplitude  oscillations.  At  high  frequencies,  the 
periodic  flow  field  was  best  described  by  the  Stokes  solution  for  flow  over 
an  oscillating  wall.  The  authors  argued  that  in  the  region  near  the  wall 
the  Stokes  thickness  fi|  nondimensionalized  with  the  mean  viscous  sublayer 
thickness  correlated  their  amplitude  and  phase  data.  The  wall  shear  stress 
was  also  measured  using  hot-film  wall  probes.  For  fig  <  10,  the  shear 
stress  at  the  wall  lead  the  free-stream  by  45°,  and  the  amplitude  was 
slightly  less  than  predicted  by  Stokes  law.  For  fig,  the  amplitude 
increased  above  the  Stokes  value  and  the  phase  lead  went  to  zero.  The 
variation  of  the  turbulent  wall  shear  stress  fluctuations  was  found  to 
depend  on  both  the  amplitude  and  frequency  of  pulsation.  The  phase  of  the 
fluctuations  had  a  time  lag  which  was  always  approximately  100-200  v/u*2. 

The  study  of  Mao  and  Hanratty  (1986)  in  an  eight  in.  pipe  focused  on 
measurements  of  the  wall  shear  stress  at  high  dimensionless  frequencies, 
a>+  They  found  that  the  phase  and  amplitude  of  the  wall  shear  stress 
variation  could  be  correlated  by  the  single  parameter  <o+  and  that  the  mean 
shear  stress  was  unaffected  by  the  imposed  flow  pulsation.  The  most 
striking  feature  of  their  results  is  a  relaxation  effect,  whereby  the 
phase  angle  characterizing  the  temporal  variation  of  the  wall  shear  stress 
undergoes  a  sharp  change  over  a  very  narrow  range  of  a»+.  They  suggested 
that  at  low  frequencies  an  equilibrium  situation  exists  whereby  the  flow 
behaves  similarly  to  that  observed  in  constant  pressure  gradient  flows. 

As  a>+  increases  the  pressure  gradient  varies  so  rapidly  that  the  turbulence 


in  the  viscous  wall  region  does  not  respond  immediately.  This  relaxation 
phenomena  has  also  been  observed  in  flow  over  wavy  surfaces  [Abrams  and 
Hanratty  (1985)].  At  higher  co+  than  the  bursting  frequency  they  observed  a 
highly  nonlinear  interaction  between  the  imposed  pulsation  and  the  turbu¬ 
lent  fluctuations.  Their  data  for  the  variation  of  the  wall  shear  stress 
at  high  to4,  which  was  still  linear,  was  found  to  be  lower  than  the  limiting 
Stokes  solution. 

Measurements  of  the  wall  shear  stress  in  a  pulsating  turbulent  boundary 
layer  were  reported  by  Cousteix  and  Houdeville  (1985).  They  compared  their 
direct  measurements  of  the  wall  shear  stress  with  a  heat  transfer  wall 
probe  to  values  deduced  from  the  logarithmic  velocity  profile.  Agreement 
was  obtained  only  for  low  frequencies.  The  parameter  co+  was  shown  to  scale 
their  data  at  high  frequencies.  The  external  flow  pulsation  generated  a 
modulation  of  the  turbulence  near  the  wall.  This  modulation  was  found  to 
be  more  significant  at  low  <o+  than  at  high  at  high  o>+.  Using  the  VITA 
technique  of  Blackwelder  and  Kaplan  (1976),  measurements  were  made  of  the 
variation  of  the  bursting  period  in  the  pulsating  boundary  layer.  Even 
though  the  results  were  found  to  be  very  sensitive  to  the  cut-off  thresh¬ 
old,  no  dramatic  effect  on  the  bursting  phenomenon  was  observed. 

C .  Mode 1 s  of  Pulsating  Turbulent  Flow 

The  first  models  of  turbulent  boundary  layers  close  to  a  solid  wall 
have  used  Van  Driest's  (1957)  modification  of  Prandtl's  mixing  length 
hypothesis.  This  approach,  which  assumes  a  universality  of  the  wall  region 
in  terms  of  wall  parameters,  fails  to  predict  flows  subject  to  mild 
pressure  gradients.  Various  workers  have  proposed  modifications  to  the  Van 
Driest  formula  to  better  account  for  these  effects. 

Patankar  and  Spalding  (1967)  proposed  that  the  local  value  of  the  shear 


stress  rather  than  the  wall  value  be  used  In  the  exponent  of  the  Van  Driest 
damping  function.  This  modification  has  the  correct  qualitative  behavior. 
In  favorable  pressure  gradients  the  shear  stress  decreases  from  its  value 
at  the  wall;  therefore,  this  formulation  does  result  in  a  thickening  of  the 
viscous  wall  region.  However,  calculations  carried  out  using  this  formula¬ 
tion  show  that  it  does  not  produce  a  large  enough  effect. 

Launder  and  Jones  (1969),  Cebeci  and  Smith  (1974),  Julien  et. 
al.(1969),  Loyd  et.  al .  (1970),  and  Reynolds  (1976)  began  experimenting 
with  the  idea  that  the  constant  A  in  the  Van  Driest  mixing  length  model  is 
related  to  the  thickness  of  the  viscous  wall  region  in  wall  units  which,  in 
turn,  depends  upon  the  dimensionless  pressure  gradient,  P+ .  These 
researchers  deduced  a  functional  dependency  of  A+  on  P+  by  examining  a 
large  number  of  equilibrium  velocity  profiles  subject  to  both  positive  and 
negative  pressure  gradients.  A  first  order  lag  equation,  that  was  used  to 
predict  an  effective  sublayer  thickness,  Aeff,  was  proposed  by  Loyd  et. 
al.,  Julien  et.  al.,  and  Launder  and  Jones  to  model  flows  with  rapidly 
changing  pressure  gradients. 

Mao  and  Hanratty  (1986)  used  models  developed  for  flow  over  wavy 
surfaces  [Thorsness  et.  al .  (1978),  and  Abrams  and  Hanratty  (1985)]  to 
model  pulsating  turbulent  pipe  flow.  Four  different  eddy  viscosity  models, 
labeled  Model  A,  Model  B,  Model  C  and  Model  D,  were  tried.  All  of  them 
attempted  to  relate  the  oscillation  induced  Reynolds  stress  to  the  induced 
velocity  gradient.  Model  A  is  a  quasi-laminar  model  in  that  the  induced 
oscillation  of  the  turbulent  Reynolds  stress  is  set  to  zero  and  the 
turbulent  flow  is  assumed  to  behave  in  the  same  manner  as  a  laminar  flow. 
This  formulation  is  only  valid  for  very  high  frequency  pulsations.  Model 
B,  an  adaption  of  the  mixing  length  model  of  Hussain  and  Reynolds  (1970), 
assumed  that  the  eddy  viscosity  is  specified  only  by  the  mean  flow  field. 


Model  C  is  a  quasi -steady  approximation  in  that  the  eddy  viscosity  and  the 
Reynolds  stress  are  directly  associated  with  the  instantaneous  velocity 
gradient  in  the  same  manner  as  that  for  a  steady  flow.  Model  D  defines  an 
effective  A+,  similar  to  that  used  by  Loyd  et.  al.(1970),  that  takes  into 
account  the  lag  between  the  imposed  pressure  gradient  and  the  turbulence. 

All  the  models  predicted  correctly  the  high  frequency  quasi-laminar 
behavior.  However,  only  Model  D  was  able  to  predict  the  rapid  change  in 
phase  associated  with  the  relaxation  phenomenon  described  earlier. 

Kebede,  Launder  and  Younis  (1985)  abandoned  the  mixing  length  approach 
by  arguing  that  the  prediction  of  nondimensional  flows  could  not  be 
achieved  with  a  transport  hypothesis  based  so  firmly  on  equilibrium 
notions.  Instead,  they  developed  a  second -moment  closure  that  incorporated 
near  wall  effects.  The  model  was  shown  to  reproduce  fairly  well  the 
behavior  of  equilibrium  wall  flows.  In  applying  the  model  to  large 
amplitude,  low  frequency  periodic  pipe  flow,  difficulties  were  encountered 
in  obtaining  time  step-independent  results.  These  troubles  were  due  partly 
to  the  time  discretization  method  employed  and  partly  to  the  dynamic 
response  of  the  turbulence  field  in  the  viscous  wall  region.  The  k-e  model 
of  Jones  and  Launder  (1972,1973)  was  also  modified  for  pulsating  pipe  flow. 
Kebede  et.  al.  found  the  k-e  model  to  give  better  predictions  for  the 
velocity  and  stress  fields  than  the  second-moment  closure  equation.  Due  to 
the  difficulties  involved,  no  attempt  was  made  by  them  to  model  the  periodic 
flow  at  higher  frequencies. 

Reddy  and  McLaughlin  (1985)  used  a  nonlinear  time  dependent  three- 
dimensional  model  of  the  viscous  wall  region  to  study  turbulent  pulsating 
flow.  The  number  of  nodes  used  in  their  pseudospectral  algorithm  was 
only  4096.  Only  one  run  at  a  frequency  equal  to  the  bursting  frequency  of 
turbulence  and  an  amplitude  of  503s  of  the  centerline  velocity  was  reported. 


Their  calculation  predicted  negligible  enhancement  of  the  momentum  trans¬ 
port  and  the  average  rate  of  turbulence  production  was  found  to  be  slightly 
lower  in  the  pulsed  flow  than  in  steady  flow.  The  production  of  turbulent 
kinetic  energy  was  shown  to  be  at  its  maximum  level  when  the  pressure 
gradient  was  at  its  minimum. 


Chapter  3.  THEORY 


This  chapter  describes  the  models  that  were  used  to  investigate  the 
effects  of  an  imposed  pressure  gradient  on  the  viscous  wall  region.  The 
first  section  describes  the  eddy  model  proposed  by  Nikolaides  (1984)  and 
its  modification  to  include  large  favorable  pressure  gradients.  The  major 
new  contribution  to  the  model  was  the  development  of  arguments  that 
described  the  scaling  of  the  coherent  structures  as  a  function  of  the 
imposed  pressure  gradient.  The  second  section  characterizes  the  eddy 
viscosity  models  used  to  predict  the  wall  shear  stress  in  turbulent 
pulsating  pipe  flow.  These  models  are  very  similar  to  those  used  by  Mao 
and  Hanratty  (1986)  to  describe  their  experimental  data  at  high  w+ . 

I .  Eddy  Model  for  the  Viscous  Wall  Region 

The  dominant  wail  eddies  in  the  viscous  wall  region  are  characterized 
by  a  length  scale,  X ,  and  a  time  scale,  Tg.  The  characteristic  length  in 
the  spanwise  direction  corresponds  to  the  distance  between  dye  streaks  as 
observed  by  Kline  et.  al.  (1967)  and  the  characteristic;  period  corresponds 
to  the  frequency  of  the  most  energetic  velocity  fluctuations  close  to  the 
wall.  Kline  et .  al .  (1967)  experimentally  observed  that  these  scales 
increase  in  accelerated  flows  and  decrease  in  decelerated  flows.  As  the 
distance  from  the  wall  increases,  eddies  with  larger  length  and  time  scales 
become  more  important.  These  eddies,  associated  with  the  flow  far  away 
from  the  wall,  interact  with  the  wall  eddies  and  their  interaction  com¬ 
pletely  specifies  the  dynamics  of  the  viscous  wall  region.  The  specifica¬ 
tion  of  this  interaction,  which  results  in  the  creation  and  maintenance  of 
wall  turbulence,  is  the  essence  of  our  eddy  model. 

A.  Model  Equations 

The  flow  in  the  viscous  wall  region  is  assumed  to  be  homogeneous  in  the 


streamwise  direction  and  coherent  on  a  plane  perpendicular  to  the  direction 
of  the  mean  flow.  The  equations  that  describe  this  flow  are  the  time- 
dependent  Navier-Stokes  equations  and  the  continuity  equation: 
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The  assumption  of  homogeneity  in  the  streamwise  direction  decouples  the  v 
and  w  equations  from  the  IJ  equation  which  makes  the  numerical  solution  of 
(3. 1-3.5)  much  easier.  The  dr/dy  term  is  only  nonzero  for  accelerated  or 
decelerated  boundary  layers.  It  represents  the  net  effect  an  imposed 
pressure  gradient  lias  on  the  turbulent  boundary  layer.  Except  in  the  dr/dy 
term,  the  normal  mean  velocity  is  neglected  as  it  is  small  compared  to  the 
fluctuating  normal  velocity.  The  effect  of  acceleration  on  dr/dy  is 
discussed  in  detail  in  Section  3.I.B. 

The  variables  in  (3. 1-3. 5)  are  made  dimensionless  in  all  the  calcula¬ 
tions  by  a  characteristic  length  £c  and  a  characteristic  velocity  Uc. 

These  are  selected  so  that  Rc+  =  A+  and  Uc+  =  2(vq')+  where  (v0')+  is  the 


intensity  of  the  normal  velocity  fluctuations  at  y  -  yo-  The  subscript  o 


3  6 

signifies  that  the  quantity  is  evaluated  at  the  outer  edge  of  the  viscous 
wall  region.  With  these  values,  the  Reynolds  number  is  Re  =  Ucft/y  =  Uc+£c+ 
=  182.  Based  on  scaling  arguments  presented  in  Section  3.I.C,  the  Reynolds 
number  is  constant  and  independent  of  the  level  of  acceleration. 

The  above  system  of  equations  are  solved  using  the  following  boundary 
conditions : 


U  =  v  =  w  =  0 
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where  z0  =  X2/2  and  X2  is  the  dimensionless  wavelength  of  the  outer  flow 
eddies . 

Eliminating  the  pressure  from  (3.1)  and  (3.2)  and  reformulating  the 
problem  using  the  vorticity  and  stream  functions  gives  the  following 
equations : 
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where  r  =  -  —  and  w  =  — ,  v  =  — .  There  are  two  reasons  for  switching 
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to  the  (W,£)  formulation:  1)  the  pressure  is  eliminated  from  the  problem 
and,  2)  the  continuity  equation  is  satisfied  by  definition.  After  the  W 
and  £  fields  have  been  determined,  v  and  w  can  be  obtained  from  the  W 
solution.  The  boundary  conditions  in  the  (W,C)  formulation  are  as  follows: 
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where  0  is  a  dummy  variable  and  the  temporal  and  spatial  variation  of 
U,  v  and  w  is  specified  at  y  -  yo- 

The  initial  conditions  for  (3.6)  and  (3.7)  are  given  by  the  inviscid- 
irrotat ional  solution  on  the  y-z  plane.  The  initial  field  for  the  U 
equation  was  generated  using  the  van  Driest  profile  in  the  viscous  wall 
region . 

The  Poisson  equation  for  the  pressure  is  obtained  by  taking  the 
y -derivative  of  (3.1)  and  the  z -derivative  of  (3.2)  and  adding  the  result¬ 
ing  equations  to  give  the  following  relation: 
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The  boundary  conditions  are  obtained  directly  from  the  equations  of  motion 
applied  at  a  specific  boundary  and  are  of  the  Neumann  type.  For  further 
information  on  the  pressure  solution,  see  Nikolaides  (1984). 


B .  Effect  of  Acceleration  on  the  Viscous  Wall  Region 

In  order  to  obtain  the  U  velocity  field  from  (3.3),  the  variation  of 
dt+/dyf  in  the  y  direction  as  a  function  of  acceleration  is  needed.  This 
can  be  accomplished  using  the  two-dimensional  mean  streamwise  momentum  and 
continuity  equations, 
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where  r  =  fi  8U/9y  -  pu  rvT . 


If  the  advective  terms  are  neglected,  the 


familiar  Couette  flow  relations  are  obtained: 


(3.11) 


and 


J  4  P+yf  . 


(3.12) 


Experimental  evidence  [Sandborn  and  Slogan  (19.55),  Bradshaw  (  1967)]  clearly 
shows  that  the  shear  stress  and  pressure  gradients  become  unequal  as  the 
distance  from  the  wall  increases.  Using  (3.9)  and  (3.10),  Julien  et.  al . 
(1969)  developed  the  following  relation  for  the  shear  stress  distribution 
in  asymptotic  similar  sink  flows: 


This  relation  differs  from  (3.12)  in  that  the  inertia  changes  in  the  fluid 
as  a  result  of  acceleration  are  taken  into  account.  Julien  et.  al.  (1969) 
and  Loyd  et.  al .  (1970)  found  that  the  wall  region,  yf  <  150,  responded 

very  quickly  to  the  imposed  pressure  gradient  and  that  (3.13)  described 
their  data  very  well.  It  is  convenient  at  this  point  to  define  a  quantity 
Pe+  such  that  (3.13)  has  the  same  form  as  the  Couette  flow  relation, 


(3.12) , 
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(3.14) 


where 


(3.15) 


The  parameter,  Pe+,  includes  the  inertial  changes  of  the  fluid  and 
represents  the  net  effect  of  the  acceleration  on  the  shear  stress  profile. 


The  shear  stress  gradient  profile  can  be  obtained  from  (3.13)  by  differen¬ 
tiating  with  respect  to  y*  to  obtain: 


dr4 

dy+ 


(3.16) 


The  bracketed  term  in  (3.16)  is  always  less  than  1  for  both  favorable  and 
adverse  pressure  gradients.  Thus,  the  inclusion  of  the  advective  terms 
always  results  in  a  damping  of  the  effect  of  the  pressure  gradient  on  the 
turbulent  structure  in  the  viscous  wall  region. 


C .  Scaling  of  the  Coherent  Structures  in  the  Viscous  Wall  Region 

The  upper  boundary  of  the  computational  domain  of  the  model  is  located 
at  the  outer  edge  of  the  viscous  wall  region  where  Kline  et.  al .  (1969) 

observed  that  the  coherent  structures  (low-speed  wall  streaks)  broke-up 
into  chaotic  motion.  Thus,  the  coherent  structures  are  modelled  by  using 
the  following  boundary  conditions  at  y+  =  y0  +  : 
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The  components  with  and  Ta  scales  are  associated  with  the  wall  eddies, 
while  the  components  with  A2  and  T2  scales  reflect  the  contribution  of  the 
outer  flow  eddies  to  the  dynamics  of  the  viscous  wall  region.  For  nonac¬ 
celerated  flows,  Nikolaides  (1984)  used  experimental  measurements  of  the 


turbulent  quantities  in  the  viscous  wall  region  to  specify  the  relative 


energies  of  the  two  components,  the  temporal  phase  angles  and  the  relevant 
length  and  time  scales.  In  accelerated  flows,  the  experimental  information 
necessary  to  assign  values  to  these  parameters  are  not  available.  Thus,  it 
becomes  necessary  to  develop  relations  that  describe  the  scaling  of  the 
coherent  structures  in  the  viscous  wall  region  as  a  function  of  acceler¬ 
ation.  The  necessary  quantities  are  the  location  of  the  edge  of  the 
viscous  wall  region  (y0f).  the  characteristic  wavelength  the 

bursting  period  ( T a  f ) ,  the  turbulent  kinetic  energy  (qo  +  )  an^  the  shear 
stress  at  the  edge  of  the  viscous  wall  region  (r0+).  Thus,  five  scaling 
relations  are  needed  to  describe  the  coherent  structures  in  the  viscous 
wall  region. 

Local  equilibrium  is  assumed  to  exist  in  the  logarithmic  region  between 
the  production  and  dissipation  of  turbulent  kinetic  energy, 


_  dU 


-uv 


dy 


6  , 


(3.20) 


where  the  rate  of  dissipation  is  equal  to 


(3.21) 


and  £  is  the  mixing  length.  Relation  (3.21)  is  a  result  of  dimensional 
considerations  that  the  energy  transfer  from  large  eddies  to  small  eddies 
proceeds  at  a  rate  dictated  by  the  energy  of  the  large  eddies  (which  is  of 
order  q2)  and  their  time  scale  (which  is  of  order  £/q) . 

In  the  logarithmic  region  £  =  ny ,  where  k  is  the  Von-Karmen  constant 
equal  to  0.41.  For  the  case  where  the  shear  stress  in  the  logarithmic 
region  is  equal  to  the  wall  shear  stress  (nonaccelerated  flows),  dimen¬ 


sional  analysis  shows 


Townsend  (1961)  was  the  first  to  generalize  (3.22)  to  the  case  where  the 
shear  stress  is  varying  in  the  y  direction, 


dU  _  Vr/p 
dy  /cy 


(3.23) 


Relation  (3.23)  has  been  experimentally  shown  to  be  valid  for  several 
different  types  of  flows.  Combining  (3.23),  (3.20)  and  (3.21)  and  using 
the  assumption  -uv|0  ~  x§/p  at  the  edge  of  the  logarithmic  region,  the 
following  is  obtained: 


(3.24) 


where  the  superscript  ®  is  used  to  represent  a  quantity  scaled  with  the 
shear  stress  at  the  outer  edge  of  the  viscous  wall  region.  These  are 
assumed  constant  for  all  levels  of  accelerations.  By  changing  (3.24)  to 
wall  variables,  the  following  is  obtained: 


(3.25) 


where  q0°  is  constant  and  equal  to  2.72,  the  nonaccelerated  value.  This 
relation  is  a  direct  statement  of  the  fact  that  the  eddies  containing 
most  of  the  turbulent  kinetic  energy  are  those  that  are  associated  with  the 
creation  of  Reynolds  stress.  This  is  the  first  of  the  five  desired 
relations  needed  to  describe  the  coherent  structures  in  the  viscous  wall 
region . 

It  has  been  observed  experimentally  that  the  region  of  direct  viscous 


4  2 

offsets  increases  (in  wall  units)  with  acceleration,  Thus,  the  location  of 
the  edge  of  the  viscous  wall  region  is  known  to  be  a  function  of  acceler¬ 
ation.  We  need  to  define  a  quantity  that  adequately  determines  the 
location  of  y0+  for  all  levels  of  acceleration.  A  natural  choice  is  the 
ratio  of  the  viscous  shear  stress  to  the  total  shear  stress 

viscous  shear  stress  fi  dU/dy  ,  . 

„  -  =  a 2  (3.26) 

total  shear  stress  r  y=y0 


Thus,  the  location  of  the  edge  of  the  viscous  wall  region  is  marked  by  the 
distance  away  from  the  wall  at  which  the  ratio  of  the  two  shear  stresses  is 
equal  to  some  arbitrary  determined  constant. 

Substituting  (3.23)  into  (3.26)  and  taking  the  reciprocal  gives 

0  y0 


yo 


(3.27) 


whore  y0°  =  l/(/ca2)  ~  40,  the  nonaccelerated  value  (values  ranging  from  30 
to  50  can  be  found  in  the  literature).  Thus,  the  location  of  the  outer 
edge  of  the  viscous  wail  region  is  found  to  be  constant  if  scaled  with  the 
shear  stress  at  the  edge  of  the  viscous  wall  region.  By  scaling  (3.27)  in 
wall  units,  the  following  is  obtained: 

o 

y0+  =  -7^7  ■  (3.28) 


This  relation  has  the  correct  qualitative  behavior  In  that  the  viscous  wall 
region  thickens  during  acceleration  and  thins  during  deceleration.  This 
is  the  second  of  the  five  necessary  relations. 

An  alternative  form  to  (3.21)  for  the  rate  of  dissipation  of  turbulent 
kinetic  energy,  valid  for  isotropic  turbulence  [Hinze  (1975)],  is 
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Ay2 


(3.29) 


where  Ay  is  the  Taylor  microseaie.  It  should  be  noted  that  A y  is  not  a 
dissipative  length  scale  (the  Kolmogorov  microscale,  n ,  is  the  only  truly 
dissipative  length  scale),  but  a  dissipative  time  scale  when  used  in 
conjunction  with  q.  Thus,  q/ Ay  is  representative  of  the  time  it  takes  for 
a  large  eddy  to  transfer  its  energy  to  a  smaller  one.  Equating  the  two 
dissipation  relations,  (3.21)  and  (3.29),  and  using  (3.24),  the  following 
is  obtained; 


Ay2  30 KV 


( 3 . 30 ) 


y0  2.72a1Vr0/p 


For  a  Gaussian  signal  the  zero  crossing  scale,  defined  as  A  h  l/(2;rN0) 
(where  N0  is  the  frequency  with  which  the  signal  crosses  zero),  is  equal  to 
Ay  [Rice  (1954)].  Measurements  of  the  ratio  A /Ay  by  Antonia  et.  al. 

(1976),  Sreenivasan  et.  al.  (1977)  and  Sreenivasan  et.  al .  (1983)  indicate 
that  it  is  also  equal  to  1  for  several  different  types  of  flows  including 
asymptotic  similar  boundary  layers.  The  dominant  eddies  in  the  viscous 
region  used  in  our  model  have  two  zero  crossings  over  the  wavelength  Alt 
therefore,  N0  =  1  and 


(3.31) 


By  substituting  (3.31)  into  (3.30)  and  rearranging,  the  following  is 
obtained : 


2 V^o/p  _  120 fen2 
y0v  2.72’d} 


(3.32) 
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By  substituting  (3.27)  into  (3.32),  the  following  is  obtained: 


o  _  ^ i /ro / 9 


(3.33) 


where  =  (120  k  k2  y0°/2.72  aj)%  =  100,  the  nonaccelerated  value. 

Expressing  (3.33)  in  wall  units, 


(3.34) 


Comparing  (3.34)  to  (3.28),  it  is  seen  that  y0+  and  have  the  same 
dependence  on  r0f.  This  should  be  expected  since  the  relations  derived  so 
far  suggest  that  the  dominant  wall  eddies  are  scaling  with  r0+  and, 
therefore,  the  height  and  width  of  these  eddies  should  be  proportional  for 
all  accelerations.  Equation  (3.34)  is  the  third  necessary  equation. 

The  next  to  last  relation  is  obtained  by  assuming  that  away  from  the 
wall,  where  viscosity  is  not  very  important,  the  transient  terms  of  the 
Navier  Stokes  equations  are  of  the  same  order  of  magnitude  as  the  convec¬ 
tive  terms ,  i . e . , 


(3.35) 


The  two  terms  can  only  be  of  the  same  order  of  magnitude  if  the  following 
is  true 


V£o7p  r  p/p 
T  i  ~ 


(3.36) 


or  equivalently 


Vr0/p 


(3.37) 


Substituting  (3.33)  into  (3.37), 


T  0  =  !±¥ 

1  *o/p 


(3.38) 


whom  Tj0  =  /)0°  =  100,  the  nonaccelerated  flow  value.  Changing  to  wall 
units, 


T  i  + 


(3.39) 


Comparing  (3.39)  to  (3.34),  it  is  seen  that  Ta  +  has  a  higher  dependence  on 
the  local  shear  stress  than  ^0+-  This  qualitatively  agrees  with  the 
measurements  of  Kline  et.  al ^  (1967). 

By  using  various  arguments,  it  has  been  shown  that  the  parameters 
characterizing  the  flow  in  the  viscous  wall  region  scale  with  the  shear 
stress  at  the  outer  edge  of  the  viscous  wall  region.  However,  before  these 
relationships  can  be  used,  a  fifth  equation  relating  r0+  to  the  scaling 
parameters  is  needed.  This  equation,  (3.14),  has  been  derived  in  the 
previous  section.  Substituting  (3.14)  into  (3.28)  gives  the  following 
relation : 


yo 


+  _ 


yo 


(1  +  Peo+Vo+)^  ' 


(3.40) 


where,  as  previously  noted,  y0°  is  set  at  40.  Equation  (3.40)  can  be 
solved  for  y04  for  a  given  value  of  Peo+ .  Once  y0+  is  known,  r0+  can  be 
obtained  from  (3.14)  and  all  the  other  scaling  parameters  can  be  deter¬ 
mined.  The  variation  of  y0  +  ,  />i  +  ,  and  Ta+  with  Peo+  Is  shown  in  Figure 
3.1.  Negative  Peo  +  values  correspond  to  favorable  pressure  gradients  and 
positive  values  to  adverse  pressure  gradients.  The  pressure  gradient 
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associated  with  each  Peof  value  cannot  be  determined  apriori  because  a 
knowledge  of  the  mean  velocity  profile,  which  has  to  be  obtained  in  the  lab 
or,  as  done  in  this  study,  from  a  computer  model,  is  needed. 

The  curves  in  Figure  3.1  exhibit  a  minimum  point  at  Peo  +  =  "0.00962. 
Physically  it  is  believed  that  this  point  corresponds  closely  to  the 
disappearance  of  the  logarithmic  region  and  the  point  of  relaminarization 
of  the  flow.  The  dotted  branch  of  the  curves  in  Figure  3.1  have  no  quanti¬ 
tative  meaning  since  the  relationships  that  they  are  based  on  depend  on  the 
existence  of  the  logarithmic  region.  At  the  inflexion  point,  the  scaling 
parameters  have  the  following  values:  y0*  =  69.28,  =  173,  =  300, 

r0+  =  0.333,  and  q0+  =  1.57,  At  higher  favorable  pressure  gradients  than 
that  at  the  inflexion  point,  relaminarization  occurs  and  a  turbulent 
asymptotic  similar  boundary  layer  is  not  possible.  These  points  are 
discussed  in  detail  in  Chapter  6. 


D ■  Boundary  Condi tions  at  the  Upper  Edge  of  the  Viscous  Wall  Region 

Because  of  the  limited  experimental  data  on  the  viscous  wall  region  for 
accelerated  flows,  complete  specification  of  the  boundary  conditions  at  the 
upper  edge  of  the  viscous  wall  region  is  not  possible.  Instead,  the 
scaling  arguments  presented  in  the  last  section  are  used  to  supplement  the 
available  data. 

Because  the  following  discussion  involves  the  quantities  in 
(3.17-3.19),  they  are  rewritten  here  for  convenience, 
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Figure  3.1 


Variation  of  the  streak  spacing,  bursting  period,  and  the 
edge  of  the  viscous  wall  region  with  Peo  • 
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Equation  (3.25)  suggests  that  any  decrease  in  the  Reynolds  stress  at 
y0+  comes  about  as  a  reduction  in  the  amplitude  of  the  fluctuations  of  the 
turbulent  eddies  and  not  as  a  result  of  decorrelation  between  the  u  and  v 
fluctuations.  The  data  of  Badri  Narayanan  et.  al .  (1974),  presented  in 
Figure  3.2,  shows  that  the  Reynolds  stress  correlation  stays  roughly 
constant  at  about  0.5  in  nonaccelerated  as  well  as  accelerated  flows. 

Using  this  information,  the  phase  angles  and  relative  energies  of  the  two 
components,  EU}  =  u1/(u1  +  u2),  are  assumed  independent  of  the 
acceleration  and  equal  to  their  nonaccelerated  values.  It  is  further 
assumed  that  the  amplitudes  of  each  fluctuating  component  at  the  upper 
boundary  are  reduced  by  the  same  amount  i.e.  u0+'  =  (qo+/Qo°)90°  ,  v0+l  = 
(QoVqo° ) vo°  and  w0  + '  =  (qo+/Qo° )w0° .  These  assumptions  are  also 
consistent  with  the  work  of  Jones  and  Launder  (1972)  who  found  that  the 
intensity  measurements  of  a  flow  with  K  ~  1.5x10“®  are  in  roughly  the  same 
proportion  to  each  other  as  those  found  in  the  nonaccelerated  case.  Their 
data,  which  starts  just  outside  the  viscous  wall  region,  suggest  that  the 
intensity  levels  are  set  by  the  local  shear  stress.  Moreover,  their 
measured  intensities  in  wall  units  fall  off  more  rapidly  with  distance  from 
the  wall  than  in  the  nonaccelerated  case  which  they  attributed  to  the 
relative  difference  in  the  shear  stress  distribution  of  the  two  flows. 

Thus,  it  appears  that  (3.25)  is  valid  everywhere  in  the  logarithmic  region. 
This  result  also  agrees  with  the  measurements  of  Bradshaw  (1967)  in 
decelerated  flows . 

The  wall  eddy  scales,  and  T3+,  are  given  by  (3.34)  and  (3.39) 

respectively.  It  is  assumed  that  the  scales  of  the  outer  flow  eddies,  /t2  + 
and  T2+,  respond  to  the  imposed  shear  stress  distribution  the  same  way  as 
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Figure  3.2  The  effect  of  acceleration  on  the  Reynolds  stress. 
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the  wall  eddies  do.  Nikolaldes  (1984)  found  from  spectral  and  correlation 
measurements  that  +  and  T2  +  are  roughly  equal  to  400  for  the 
nonaccelerated  boundary  layer.  He  found  that  the  flow  structures  were  not 
very  sensitive  to  and  T2  +  and  that  values  ranging  from  300  to  700  gave 

essentially  the  same  results.  Therefore,  the  outer  flow  eddy  scales  were 
set  by  the  following  relations  for  all  the  runs: 

Az+  =  4^!+  (3.41) 

T2  +  =  4TT*  .  (3.41) 


Most  of  the  parameters  used  by  Nikolaides  (1984)  for  the  nonaccelerated 
boundary  layer  are  also  used  in  this  study.  Some  small  adjustments  were 
necessary  in  order  to  satisfy  the  logarithmic  equation  for  the  mean  velocity 
and  the  slope  at  the  outer  edge  of  the  viscous  wall  region,  i.e., 


1J+  =  2.44  ln(y+)  +  5.0 


(3.43) 


dU+  _  2.44 
dy+  y+ 


(3.44) 


where  the  constants  are  those  of  Coles  (1962).  Evaluating  (3.43)  and 
(3.44)  at  y+  =  40  gives  U+  -  14  and  dU+/dy+  =  0.061.  The  Reynolds  stress 
at  y0+  (scaled  with  the  stress  at  y  =  y0)  is  also  set  at  0.939,  since 
u+v+  =  1  -  dU+/dy+  in  a  nonaccelerated  boundary  layer.  To  satisfy  these 
relations,  the  model  parameters  were  changed  in  the  following  manner: 

Evj  from  0.75  to  0.70 
EWj  from  0.40  to  0.37 
tf>u2  from  194.4°  to  196°  . 

Table  3.1  lists  all  the  parameter  values  used  in  this  study  that  are 
assumed  independent  of  acceleration. 


Table  3.1 

Constant  Parameter  Values 


Component 

0i 

02 

u 

0.15 

216 

196 

V 

0.70 

36 

90 

w 

0.37 

0 

270 

The  other  model  parameters  depend  on  the  shear  stress  at  y0+  or, 
equivalently,  the  level  of  acceleration  in  the  turbulent  boundary  layer. 

E .  Numerical  Scheme 

All  the  computations  performed  in  this  work  were  done  on  a  Floating 
Point  Systems  164  Attached  Array  Processor  using  a  Vax-11/780  computer  as  a 
host.  The  FPS-164  uses  a  64~b.it  data  word  which  provides  15  decimal  digit 
accuracy.  A  listing  of  the  computer  program  is  given  in  Appendix  II. 

1 .  Numerical  Solution  of  the  v,w  Equations 

Acceleration  of  the  flow  does  not  directly  affect  the  numerical 
solution  of  the  v,w  momentum  equations,  (3.17)  and  (3.18),  because  all 
derivatives  in  the  streamwise  direction  are  assumed  negligible.  The  mean 
normal  velocity  that  results  from  acceleration  is  also  assumed  negligible 
since  it  is  at  least  an  order  of  magnitude  less  than  the  intensity  of  the 
normal  velocity  fluctuations.  Thus,  the  alternating  direction  implicit 
(ADI)  scheme  used  by  Nikolaides  (1984)  to  solve  the  (£,*F)  field  of  a 
nonaccelerated  flow  is  used  for  all  the  flows  studied  in  this  work.  The 
main  advantage  in  using  the  ADI -scheme  is  its  unconditional  stability  with 
respect  to  the  selection  of  the  time  step  [Roache  (1982)]. 

The  discretization  of  (3.6)  and  (37)  results  in  the  following  finite 
difference  approximation  for  the  vorticity-st.ream  function  formulation: 
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(3.47) 


Equation  (3.45)  is  solved  for  .  and  subsequently  e"  *  is  obtained  from 
(3.46).  Then,  (3.47)  is  inverted  to  give  y  The  values  for  the 
velocities  w'Tj,  v,.1+j  and  the  values  for  the  boundary  vorticities 

^M+^  j  3nd  ?i '  i '  ?i  Ntiare  needed  t0  solve  (3-45-3.47)  for  a  given  time 
step.  The  number  of  panels  in  which  the  computational  domain  is  divided  in 
the  z  and  y  directions  are  given  by  M  and  N  respectively.  Thus,  an 
iterative  procedure  is  used  where  guessed  values  for  v,w  and  the  boundary 


n+1 


which  are  then 


vorticity  are  used  in  (3.45)  and  (3.46)  to  solve  for  £  . 

i  *  J 

used  in  (3.47)  to  obtain  Vn+1..  The  guessed  values  of  v,w  and  the  boundary 

* » J  n+1 

vorticity  are  recalculated  using  the  new  values  of  V  and  the  process 

n+H 


repeated  till  the  criteria  max 


^n+1  [ 
i , J jnew 


i , j J  old 


<  10 


-12 


is 


satisfied.  The  details  of  the  iteration  process  and  numerical  scheme  used 


to  solve  (3.45-3.47)  can  be  found  in  Nikolaides  (1984).  Further  details 


about  the  general  numerical  solution  of  the  stream  function  and  vorticity 
equations  in  planar  flows  can  be  found  in  Roache  (1982). 

Acceleration  affects  the  solution  of  the  field  thru  the  boundary 

conditions  at  yo+.  (3.17)  and  (3.18).  Recalculating  the  (W.O  field  for 
each  acceleration  was  highly  undesirable  because  it  takes  up  90%  of  the 
CPU  time  for  the  whole  program.  Therefore,  a  method  was  devised  to  use  the 
nonaccelerated  (W,C)  field  as  input  for  the  solution  of  the  accelerated  U 
field. 

The  values  for  v  and  w  at  the  upper  boundary  are  not  affected  by 
changes  in  X+  and  T*  that  are  caused  by  an  imposed  pressure  gradient.  This 
is  because  these  parameters  are  used  in  ratios  with  z+  and  t+  in  (3.17)  and 
(3.18).  These  ratios  do  not  change  as  long  as  the  number  of  grid  points  in 
all  the  calculations  (accelerated  and  nonaccelerated)  is  held  constant. 
However,  the  parameters  that  do  have  an  effect  on  the  calculations  are  the 
amplitudes  of  the  fluctuations  (vlt  v2,  wlt  w2).  From  (3.25),  it  is 
seen  that  these  amplitudes  scale  with  (r0*)^.  Thus,  scaling  the 
nonaccelerated  (V,?)  field  with  (r0+)^  should  give  the  same  results  as  a 
full  recalculation.  Subsequent  tests  showed  this  to  be  the  case. 

Therefore,  the  accelerated  (W,£)  field  was  calculated  for  all  the  runs  by 
scaling  the  nonaccelerated  (V,£)  field  by  (r0*)^ 

The  main  program  was  rewritten  to  be  able  to  input  or  output  the  W 
field  and  the  upper  boundary  and  wall  vorticity  at  every  time  step  (It  is 
not  necessary  to  I/O  the  full  £  field  since  it  can  be  generated  from  the  W 
field  and  boundary  £.).  One  run  was  made  to  calculate  the  V  field  and 
boundary  vorticity.  This  was  then  used  as  input  in  all  the  rest  of  the 


runs.  This  resulted  in  significant  savings  of  CPU  time. 


2. 


Numorica 1  Solution  of  the  U  Equation 
Unlike  the  v,w  field,  the  U  velocity  field  has  to  be  recalculated  for 
each  acceleration  because  of  the  additional  source  term,  dr/dy  „  and  the 
presence  of  a  significant  mean  velocity.  As  discussed  earlier  in  Section 
3.I.B,  dr/dy  is  used  in  (3.3)  instead  of  the  pressure  gradient  as  a  way  of 
accounting  for  the  effects  of  acceleration  on  the  inertia  of  the  fluid. 
Directly  including  the  advective  terms  in  (3.3)  is  not  possible  since  the 


model  neglects  streamwise  derivatives.  Because  —  <  —  —  ,  the 

dy  p  dx 

inclusion  of  these  terms  will  always  result  in  a  dampening  of  the  effect  of 
the  imposed  pressure  gradient  on  the  boundary  layer.  From  (3.16),  dr/dy  is 
seen  to  be  only  a  function  of  the  distance  from  the  wall,  dr/dy  *  f(t,z), 
and,  thus,  is  relatively  easy  to  incorporate  into  the  solution  scheme  of 
Nikolaides  (  1984 ) . 

Equation  (3.3)  is  discretized  in  time  and  space  using  two  half-steps  as 
is  standard  in  the  ADI -scheme: 
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where  i,j  are  the  indices  in  the  z  and  y  directions  respectively.  Equation 
(3.48)  is  solved  for  IJ1?  ^  and  then  is  obtained  from  (3.49). 


Each 


equation  is  solved  by  Inverting  tridiagonal  matrices.  The  IMSL  subroutine 
LEQT1B  was  used  to  perform  the  inversion.  It  can  be  shown  that  the 
computational  effort  at  a  given  time  step  involves  the  solution  of  (M-l)  + 
(N  1)  tr.idiagonal  matrices  where  M-l  and  N-l  are  the  number  of  interior 
points  in  the  z  and  y  directions  respectively.  For  more  details  on  the 
numerical  solution  of  the  U  equation,  see  Nikolaides  (1984). 

3 .  Solution  Scheme 

The  solution  scheme  of  the  program  can  be  organized  in  either  of  two 
ways,  depending  upon  whether  information  at  a  specific  Peo  +  or  Pf  is 
desired.  These  two  parameters  are  related  thru  (3.15),  which  requires  a 
knowledge  of  the  mean  velocity  profile.  The  solution  is  iterative  because 
0+(yf)  depends  on  the  value  of  P+  or  Peo+ .  Specification  of  Peo+  sets  r0+ 
and  all  the  other  scaling  parameters  so  that  the  only  quantities  that 
change  from  cycle  to  cycle  are  P^  and  U(y+).  Fixing  P+  does  not  specify 
any  other  parameter  because  r0+  will  vary  from  cycle  to  cycle.  Because  of 
this  variation  the  number  of  cycles  needed  to  reach  steady  state  (invariant 
statistics  when  averaged  over  a  cycle  equal  in  time  to  T?+)  is  higher  than 
when  Peo  +  is  specified.  However,  specifying  P+  enables  easy  comparison 
with  the  literature  which  is  always  reported  at  a  fixed  P+  or  K  and  not 
Peo+.  Due  to  the  savings  in  CPU  time,  it  was  decided  to  organize  the 
program  on  the  basis  of  knowing  Peo+. 

There  are  two  real  values  of  y0+  for  every  negative  value  of  Peo4 ,  as 
shown  in  Figure  3.1.  This  could  present  a  problem  near  the  inflexion  point 
where  the  location  of  the  two  solutions  are  very  close  to  each  other. 
Therefore,  it  was  decided  to  specify  y0+  and  to  obtain  Peof  from 


which  is  a  rearrangement  of  (3.40).  For  a  given  y0'f  there  is  only  one  Peo+ 
value  and  the  ambiguity  is  no  longer  a  problem.  From  (3.14)  r0+  can  be 
obtained  which  in  turn  specifies  all  the  other  scaling  parameters  since 
they  are  only  functions  of  r0+. 

The  iterative  process  that  is  used  in  the  program  is  as  follows:  P+  is 
guessed  and  the  initial  0(y+)  is  generated  using  the  modified  van  Driest 
mixing  length  of  Loyd  et.  al .  (1970)  where  the  constant  A+  is  adjusted  such 
that  (3.15)  is  satisfied  at  y0^.  Once  U+(y+)  is  known,  dr+/dy+  is 
calculated  at  each  y+  location  using  (3.16).  The  program  is  then  run  for 
one  time  cycle  equal  to  T?1".  The  calculated  U  field  is  the  solution  of 
(3.3).  However,  this  solution  multiplied  by  a  constant  is  also  a  solution 
since  (3.3)  is  a  linear  equation.  The  correct  solution  must  also  satisfy 
the  Couette  flow  relation, 

uc+  =  y+  +  F+y+2/2  ,  (3.51) 

near  the  wall  Therefore,  the  calculated  U  field  is  scaled  so  that  the  U 
velocity  at  the  grid  point  closest  to  the  wall  satisfies  the  Couette  flow 
relation.  A  new  P^  Is  then  calculated  from  (3.15)  and  the  process  is 
repeated  till  P+  is  constant  from  one  cycle  to  the  next.  After  this 
criterion  is  met,  the  flow  is  assumed  to  have  reached  steady  state  and  the 
statistics  are  calculated  and  stored  over  the  next  cycle. 

A  parameter  in  all  the  calculations  that  has  to  come  from  experimental 
data  is  the  skin-friction  coefficient,  Cf/2.  The  value  chosen  for  Cf/2 
directly  affects  the  calculations  since  the  new  P+  value  is  calculated  from 
(3.15)  which  contains  Cf/2.  Fortunately,  the  experimental  data  for* 
asymptotic  boundary  layers  under  the  influence  of  a  strong  favorable 
pressure  gradient  indicate  that  Cf/2  is  a  constant  independent  of  the 
imposed  pressure  gradient.  The  data  of  several  researchers  are  shown  in 
Figure  3.3.  It  is  seen  that  for  K  values  greater  than  1.5xl0~6  (pressure 


0.0030 


0.0025 


0.0020 


0.0015 


o 


o 


jp 


A 


-B - ► 


V 


O  Julien  (1969) 

□  Jones  &  Launder  (1972) 

A  Loyd  et.  al.  (1970) 

V  Launder  6  Jones  (1969) 

>  Badri  Narayanan  et.  al.  (1969) 


I 


0  12  3 


K  xio6 


Figure  3.3 


The  skin-friction  coefficient  data  of  several  investigators. 


gradients  less  than  -0.012)  Cf/2  is  constant  and  equal  to  0.0025.  Jones 
and  Launder  (1972)  arrived  at  the  same  conclusion  and  noted  that  this  value 
is  practically  the  same  as  that  suggested  by  Coles  (1962)  as  the  maximum 
attainable  in  nonaccelerated  boundary  layers.  Stronger  accelerations  than 
about  K  =  2.8xl0"6  causes  relaminarization  of  the  boundary  layer  which 
results  in  a  drop  of  Cf/2  to  the  accelerated  laminar  value  which  can  be 
determined  analytically  as  [Launder  and  Stinchcombe  (1967)] 

Cf/2  =  1.155  (K)3*  .  (3.52) 

For  example  an  accelerated  boundary  layer  with  K  =  2.8xl0-6  that  is 
undergoing  relaminarization  will  have  its  skin-friction  coefficient 
decrease  from  0.0025  to  0.00193.  Therefore,  as  seen  in  Figure  3.3,  a 
turbulent  boundary  layer  will  have  an  increase  in  drag  till  relaminariza¬ 
tion  causes  a  decrease  in  drag.  Only  strongly  accelerated  boundary  layers 
that  have  not  relaminar ized  are  studied  in  tin's  work.  In  this  range  of 
P+,  Cf/2  is  known  without  question  to  be  equal  to  0.0025. 

The  time  step  used  for  the  calculation  and  storage  of  the  v,w  field 
was  At4-  -  0.333.  The  time  step  for  the  calculation  of  the  U  field  varied 
from  4  to  10  depending  on  how  close  the  solution  was  to  steady  state  with 
the  higher  value  being  used  for  the  first  few  cycles  and  the  lower  value 
during  the  last  few  cycles.  The  statistics  were  generally  calculated  at 
At+  =  4  since  test  runs  comparing  the  fourth-order  moments  using  At  +  equal 
to  0.333  and  4  were  identical  to  five  significant  figures.  These  rela¬ 
tively  large  time  steps  are  possible  because  the  v,w  field  used  in  the  U 
field  calculation  was  generated  with  the  more  accurate  time  step  of  0.333. 

To  test  the  spatial  resolution  of  the  program,  the  number  of  grid 
points  in  the  y-direction  was  increased  from  51  to  101  and  from  101  to  201 


in  the  z-direct.ion .  The  nonaccelerated  flow  was  then  calculated  for  both 


5  9 

meshes  and  the  fourth  order  moments  were  found  to  be  equivalent  to  six 
significant  figures.  This  result  indicates  that  a  mesh  size  of  51,101  is 
adequate  for  resolving  the  flow  field  and,  therefore,  all  the  rest  of  the 
runs  were  done  at  this  mesh  size. 

I I •  Eddy  Viscosity  Model  of  Turbulent  Pulsating  Pipe  Flow 

This  section  describes  the  turbulent  pulsating  pipe  flow  eddy  viscosity 
models  that  were  developed  to  explain  the  experimental  wall  shear  stress 
data.  These  models  are  similar  to  those  used  by  Mao  and  Hanratty  (1986)  to 
describe  their  data  at  high  ®+.  However,  there  are  some  major  differences: 
1)  The  assumption  of  plug  flow  in  the  center  of  the  pipe  was  relaxed  in 
order  to  expand  the  range  of  validity  of  the  models.  2)  A  relation 
developed  by  Cess  (1958)  for  the  eddy  viscosity  profile  was  used  to  provide 
a  continuous  and  analytic  transition  between  the  inner  and  outer  regions  of 
the  flow.  3)  The  numerical  code  was  rewritten  to  handle  a  nonlinear 
behavior . 

A .  Triple  Decomposition  and  the  Phase  Average 

In  steady  turbulent  flow,  variables  can  be  decomposed  into  time  mean 
values  and  turbulent  fluctuations.  When  an  organized  unsteadiness  is 
imposed  on  the  system,  this  additional  component,  which  is  a  deterministic 
function  of  time,  has  to  be  included.  Following  Hussain  and  Reynolds 
(1970),  variables  are  decomposed  into  three  components: 

E(x,t)  =  E(x)  +  e(x,t)  +  e(x,t)  (3.53) 

where  E(x)  is  the  time  mean  value  of  E(x,t)  at  a  given  location  x, 
e(x,t),  the  organized  response  component  due  to  the  imposed  excitation 
and  e(x,t),  the  turbulent  fluctuation. 


i 


In  order  to  separate  the  three  components  of  a  flow  variable,  two 
different  averaging  procedures  are  employed,  a  time  average  and  a  phase 
average.  The  time  average  is  conventionally  used  in  steady  turbulent 


studies 

,  and  is  defined  as 

i  fT 

E(x)  =  lim  -  E(x , t)  dt  .  (3.54) 

T-«»  1  Jo 

In  discrete  form,  the  time  average  is  the  average  of  a  large  number  of 


samples 

In  a  record  of  sufficiently  long  duration.  That  is 

N 

E(x)  =  lim  i  V  E(x.t1)  ,  (3.55) 

“  N-*<»  u 

i=l 

where  i 

identifies  a  particular  sample  and  N  is  the  total  number  of 

samples . 

,  In  practice,  the  total  time  duration  in  which  all  the  samples  are 

taken  is  large  compared  to  the  imposed  pulsation  period  and  the  longest 
turbulent  fluctuation  period. 

The  phase  average  is  defined  as  the  average  of  samples  from  a  large 
number  of  cycles  at  a  fixed  cycle  angle, 


where  0 

N-l 

<E(x,0)>  =  lim  i  y  E(x,0  +  2xn) ,  0  s;  0  s  2n  .  (3.56) 

N  u 

n=0 

is  the  cycle  phase  angle.  In  practice,  N  is  a  large  finite  number. 

By  definition,  phase  averaging  eliminates  the  term  involving  random 
turbulent  fluctuations,  namely, 

<fc(x,0)>  =  E (x)  +  e(x,0)  ,  (3.57) 


and  the  time  average  of  <E(x,0)>  eliminates  the  pulsating  component, 


<E(x , 0)>  =  E(x)  . 
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(3.58) 


From  the  above  expressions,  the  pulsating  component  and  the  turbulent 
fluctuations  can  be  extracted  from  the  flow  variable  as 

e(x,t)  =  <E(x, t)>  -  E (x)  ,  (3.59) 


and 


e(x, t)  =  E(x,t)  -  <E(x, t)>  . 


(3.60) 


B .  Governing  Equations  for  Turbulent  Pipe  Flow 

If  the  flow  in  a  circular  pipe  is  fully  developed  and  symmetric  in  the 
angular  direction,  the  phase  averaged  Navier -Stokes  equations  for  an 
incompressible  flow  of  a  Newtonian  fluid  simplify  to 
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(3.61) 


where  <r(*)>  =  -p  <uv>  is  the  phase  averaged  Reynolds  stress  and  r  is  the 
distance  from  the  center  of  the  pipe. 

To  solve  this  equation,  the  Reynolds  stress  has  to  be  specified  in 
terras  of  the  mean  velocity  and  r.  Following  Boussinesq  (1877),  a  turbulent 
eddy  viscosity,  which  relates  the  Reynolds  stress  to  the  velocity  gradient 
by  an  analogy  with  Newton's  law  of  viscosity,  is  defined  in  order  to  close 
(3.61).  Thus,  the  phase  averaged  Reynolds  stress  is  written  as 

<r(t)>  =  p  <vt  — >  .  (3.62) 

ay 

An  empirical  equation  proposed  by  Cess  (1958)  is  used  to  describe  the 


radial  variation  of  the  eddy  viscosity, 
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(3.63) 


where  r0  is  the  radius  of  the  pipe.  The  van  Driest  parameter,  A+,  is  a 
measure  of  the  thickness  of  the  viscous  wall  region.  The  Cess  expression 
is  a  combination  of  van  Driest's  (1957)  mixing  length  wall  region  law, 

^  -  I  (  -»  ♦  [>  *  (l  -  exp  (-  i^))2  f  )  .  ,3.64, 


and  Reichardt’s  (1951)  middle  law, 

<^> .  [ala^]  (4  -£)(.- 


(3.65) 


where  k  =  0.41  and  A+  =  26.  Figure  3.4  shows  the  eddy  viscosity  profiles 
generated  by  (3.63)  for  the  case  of  steady  flow  in  a  two  in.  pipe  at  a  Re  = 
50,000.  As  seen  in  Figure  3.4,  the  main  advantage  of  the  Cess  profile  is 
that  it  provides  a  continuous  and  analytic  transition  between  the  inner  and 
outer  regions  of  the  flow. 

Patanker  and  Spalding  (1967),  Abrams  and  Hanratty  (1985),  and  Mao  and 
Hanratty  (1986)  suggest  using  the  local  value  of  the  shear  stress  in  the 
exponent  of  the  van  Driest  damping  function.  This  change  induces  a 
thickening  and  thinning  of  the  viscous  wall  region  that  agrees  with 
experimental  data  of  flows  with  imposed  pressure  gradients.  Thus,  (3.63) 


was  modified  to  give: 
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Figure  3.4  Eddy  viscosity  profiles  for  various  models 
(rD  =  2",  Re  =  50,000) 


(3.66) 
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where  r  is  used  from  the  wall  to  y0+  and  r0  is  used  from  y0+  to  the  center 
of  the  pipe.  To  be  consistent  with  the  van  Driest  law  in  the  wall  region, 
the  leading  shear  stress  (term  containing  k  in  the  Cess  relation)  was  also 
changed  to  the  local  shear  stress.  Equation  (3.66)  with  the  local  shear 
stress  for  all  y  is  represented  by  the  dotted  line  in  Figure  3.5  for  a 
steady  flow  in  a  two  inch  pipe  at  a  Re  =  50,000.  As  seen  in  Figure  3.5,  a 
problem  occurs  near  the  center  of  the  pipe  where  the  local  value  of  the 
shear  stress  goes  to  zero  (a  typical  behavior  of  mixing  length  theories). 
This  result  is  inconsistent  with  measurements  that  have  shown  that  the  eddy 
viscosity  is  large  and  nearly  constant  in  the  core  region.  Therefore,  it 
was  decided  to  use  the  local  shear  stress  from  the  wall  to  y0+  and  to  use 
r0  from  y0+  to  the  center  of  the  pipe  in  this  term  as  well  as  in  the  van 
Driest  damping  function.  This  formulation  is  plotted  as  the  solid  line  in 
Figure  3.5.  For  comparison  purposes  the  dashed  line  was  generated  from 
(3.63).  It  is  seen  that  using  r0  from  y0+  to  the  center  of  the  pipe  has 
very  little  effect  on  the  eddy  viscosity  values,  but  does  eliminate  the 
problem  at  the  center  of  the  pipe. 

1 .  Quasi  -laminar  Approximation  (Model  A) 

The  simplest  model  for  pulsating  turbulent  pipe  flow  involves  the 
assumption  that  the  pulsating  pressure  gradient  has  no  effect  on  the 
turbulent  Reynolds  stresses  and  that  the  induced  pulsations  in  the  turbu¬ 
lent  flow  will  behave  in  the  same  manner  as  for  laminar  pulsating  flow. 

This  assumption  is  assumed  to  be  valid  for  high  frequencies  where  the 
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Figure  3.5  Eddy  viscosity  profiles  for  the  various  shear  stress 
formulations  (rc  =  2",  Re  =  50,000) 


spatial  variation  of  the  imposed  flow  pulsation  is  confined  to  a  very  thin 
layer  near  the  wall  where  turbulence  has  negligible  effect.  This  case  has 
been  solved  by  Sexl  (1930)  and  Uchida  (1956)  for  a  sinusoidal  pressure 
gradient , 

_i  r,  a  cos ( &>t )  ,  (3.67) 

p  dx 


where  a  is  the  amplitude  of  the  imposed  pressure  gradient  and  to  is  the 
angular  frequency  of  the  pulsation.  At  high  frequencies,  (<o/v)% r0  >>  1, 
the  solution  is  given  as 

G(r,t)  =  Siri  (wt)-[Lopexp(  -  r)J 


sin 


(3.68) 


The  second  term  in  (3.68)  quickly  damps  out  as  the  distance  from  the  wall, 
r0  -  r,  increases  and  (3.68)  simplifies  to 

u(r,t)  «  —  cos((yt  -  k/2)  .  (3.69) 

to 

Thus,  the  pulsating  component  in  the  central  portion  of  the  pipe  behaves  as 
a  solid  body  with  an  amplitude  given  by: 

I Uc I  =  H  .  (3.70) 


and  the  phase  of  the  pulsating  velocity  lags  behind  the  imposed  pressure 
gradient  by  90° . 

Only  in  the  Stokes  layer  close  to  the  wall,  of  thickness 


does  the  pulsating  velocity  vary  rapidly  with  distance  from  the  wall.  The 
velocity  gradient  at  the  wall  is  obtained  from  (3.68)  as 


3u  I 

3y  jy-»0 


cos(ot  -  x/4)  . 


(3.72) 


Converting  to  wall  units,  the  following  is  obtained 


|  (<o+)^  cos(«+t+  -  x/4)  . 


(3.73) 


From  (3.69)  and  (3.73),  it  is  seen  that  the  oscillating  shear  stress  at  the 
wall  leads  the  center  velocity  by  45°  and  lags  the  pulsating  pressure 
gradient  by  45°.  If  the  amplitude  of  the  variation  of  the  wall  shear 
stress  scale  in  the  following  manner  (as  suggested  by  (3.73): 


(3.74) 


It  is  noted  that  |?w+|/|uc+|  is  independent  of  the  amplitude  of  the 
imposed  pressure  gradient,  and  depends  upon  «+  to  the  one-half  power. 

2 .  Quasi -steady  Approximation  (Model  C) 

For  the  case  of  very  low  frequencies  a  pseudo -steady  approximation  can 
be  made  whereby  the  relation  between  the  instantaneous  wall  shear  stress 
and  the  instantaneous  center  line  velocity  is  the  same  as  for  a  steady 
flow.  Mao  and  Hanratty  (1986)  have  shown  that  making  this  assumption  gives 


the  following  relation: 


where 
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* .  a  f^rn 


(3.76) 


If  the  Blasius  friction  law  is  used,  then  (3.75)  becomes 


(3.77) 


For  Reynolds  numbers  between  10,000  and  50,000,  this  ratio  is  approximately 
equal  to  0.095.  Equation  (3.75)  is  useful  in  that  it  provides  a  rough 
estimate  of  the  amplitude  variation  at  very  low  frequencies  which  can  be 
used  to  check  numerical  models  of  turbulent  pulsating  pipe  flow. 

One  such  model  is  the  quasi-steady  model  (called  Model  C)  used  by 
Thorsness  et.  al.  (1978)  and  Abrams  and  Hanratty  (1985)  to  describe  flow 
over  wavy  surfaces  and  modified  by  Mao  and  Hanratty  (1986)  to  describe 
pulsating  pipe  flow.  This  model  assumes  that  the  turbulent  shear  stress 
responds  instantaneously  to  the  velocity  gradient  and  eddy  viscosity  as 
dictated  by  (3.(51),  (3.63)  and  (3.66).  Therefore,  the  solution  of  these 
equations  constitutes  Model  C. 

3 .  Relaxation  Approximation  (Model  D) 

As  previously  noted  strong  steady  favorable  and  unfavorable  pressure 
gradients  have  been  found,  respectively,  to  dampen  and  to  enhance  turbu¬ 
lence  in  the  viscous  wall  region.  A  number  of  investigators  [Launder  and 
Jones  (1969),  Cebeci  and  Smith  (1974),  Julien  et.  al .  (1969),  Loyd  et.  al. 
(1970)]  have  argued  that  this  behavior  causes  the  thickness  of  tin;  viscous 
wall  region  to  increase  in  favorable  pressure  gradients  and  to  decrease  in 
unfavorable  pressure  gradients.  They  represented  this  effect  by  allowing 
A+  to  be  a  function  of  P+.  For  small  P+ ,  it  was  found  that 


with  k 


A+  =  A+ ( 1  +  k,P+  +  k2P+2  +  . . . ) 
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(3.78) 


!  s  -30  and  k2  =  1,540.  This  predicts  that  A+  increases  for 
increasing  negative  values  of  P+  and  decreases  with  increasing  positive 
values . 

For  situations  in  which  the  pressure  gradient  is  varying  rapidly  in  the 
flow  direction,  Launder  and  Jones  (1969),  Julien  et.  al.  (1969),  and  Loyd 
et.  al,  (1970),  have  proposed  a  first  order  lag  equation  whereby  the  flow 
close  to  the  wall  sees  an  effective  pressure  gradient  given  by  the  equation 

gW  .  r*.  =..  W  ,  (3.79) 


where  kr  is  a  relaxation  constant  approximately  equal  to  3000.  Alternative 
approaches  have  been  tried  where  the  entire  Reynolds  stress  was  relaxed 
[Shemer  and  Wygnaski  (1981),  Abrams  (1984)]  and  where  the  entire  van  Driest 
damping  function  was  relaxed  [Abrams  and  Hanratty  (1985)].  No  significant 
difference  was  noted  in  results  obtained  from  these  approaches. 

Mao  and  Hanratty  (1986)  applied  this  concept  to  pulsating  flow  where 
the  pressure  gradient  is  varying  with  time  rather  than  space.  A  direct 
application  of  (3.79)  to  this  case  requires  the  definition  of  a  convection 
velocity  which  characterizes  the  strearawise  propagation  of  disturbances  in 
the  viscous  wall  region  to  relate  spatial  variations  to  time  variations. 
Therefore,  a  convection  velocity  equal  to  15  was  chosen  to  take  this  effect 
into  account.  Equation  (3.79)  is  then  rewritten  as 


dPeff*  =  P*  -  Peff* 

dt+  (kr/15) 


(3.80) 


Thus,  Model  D  Introduces  a  lag  between  the  Imposed  pressure  gradient  and 
the  change  of  scale  in  the  viscous  wall  region. 


C.  Numerical  Scheme 


Equations  (3.61),  (3.62),  (3.66)  were  numerically  solved  by  a  forward- 
in-time,  central -difference  explicit  scheme  with  variable  grid  size.  Since 
the  pulsating  velocity  changes  rapidly  in  the  wall  region  and  the  final 
goal  of  the  calculations  is  to  find  the  velocity  gradient  at  the  wall,  it 
is  necessary  to  use  a  very  small  grid  size  close  to  the  wall.  Grid  sizes 
which  are  increasing  in  a  geometric  series  of  y+  were  chosen: 


+  _  Aya+iHJ-1  -  1) 
yj  (H  -  1) 


1  <  j  s  J. 


(3.81) 


where  Ayx+  is  the  first  grid  size  near  the  wall,  and  H  is  the  ratio  of  two 
consecutive  grid  sizes. 

The  first  grid  size  Ay**  was  selected  small  enough  so  that  the  velocity 
gradient  at  the  wall  can  be  calculated  by  assuming  a  linear  variation  of 
the  velocity.  After  several  tries,  Ay^  was  taken  to  be  equal  to  1/25  of 
the  Stokes  thickness.  The  last  grid  size  in  the  center  of  the  pipe  was 
always  set  to  10  wall  units.  Thus,  the  ratio  H  was  determined  from 


H 


Aycf 

Ay  i+ 


(l/J) 


(3.82) 


Figure  3.6  displays  the  grid  spacing  for  a  run  with  Ay!4-  =  0.1,  Ayc+  = 

10.0,  H  =  1.05  and  J  =  95. 

The  quasi-laminar  solution  was  used  to  start  the  program.  By  trial  and 
error,  it  was  determined  that  At+  had  to  be  at  least  2n  less  than  Ayi  +  in 
order  for  the  program  to  converge.  The  program  was  run  until  the  wall 
shear  stress  at  the  beginning  of  the  pulsation  cycle  was  constant  from  one 
cycle  to  the  next.  After  convergence,  the  program  ran  for  one  more  cycle 
to  determine  the  phase  averages.  A  listing  of  the  program  can  be  found  in 


Appendix  III. 
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Figure  3.6  Sample  finite  difference  grid 


CHAPTER  4.  DESCRIPTION  OF  EXPERIMENTS 


This  chapter  describes  the  electrochemical  technique  and  experimental 
equipment  that  were  used  to  make  measurements  of  the  velocity  gradient  at 

the  wall  in  turbulent  pulsating  pipe  flow. 

I .  Electrochemical  Technique 

The  theory  behind  the  use  of  the  electrochemical  technique  to  measure 
the  velocity  gradient  at  the  wall  in  steady  flow  is  discussed  in  detail  in 
Hanratty  and  Campbell  (1983).  The  proper  use  of  the  wall  probes  in 
turbulent  pulsating  flow  is  described  in  Mao  and  Hanratty  (1985).  The 
contents  of  these  two  references  are  summarized  in  this  section. 

A .  Electrochemical  Cell 

The  following  electrochemical  reactions  are  carried  out  on  the 
surface  of  the  electrodes: 


Cathode 

la  4-  2e~  -  31“ 

(4.1) 

Anode 

31  -  1“  +  2e~  . 

(4.2) 

An  aqueous  solution  of  potassium  iodide  and  iodine  is  used  as  the 
electrolyte  which  supplies  the  tri-iodide  ion,  I3,  due  to  the  reaction 

i2  +  r  ;  ia  .  (4.3) 

An  excess  of  potassium  iodide  is  needed  to  minimize  the  effect  of  ionic 
migration  of  the  reacting  ion  on  the  mass  flux.  The  bulk  concentration 
of  I3  remains  constant  because  the  electrode  reactions  destroy  and  produce 
equimolar  quantities  of  1 3  ions. 

The  electrochemical  cell  is  shown  in  Figure  4.1.  The  area  of  the 
cathode,  the  test  electrode,  Is  many  times  smaller  than  the  area  of  the 
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Figure  4.1  The  electrochemical  cell 


anode,  which  is  a  large  section  of  piping  downstream  of  the  test 
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section.  Thus  the  reaction  at  the  cathode  is  the  step  controlling  the 
current  flow. 

If  the  voltage  applied  to  the  cell  is  sufficiently  high,  the 
electrochemical  reaction  on  the  surface  of  the  electrode  will  proceed 
at  a  high  enough  rate  so  that  the  concentration  of  1 3  at  the  surface  can 
be  considered  as  zero.  The  rate  of  reaction  is  then  controlled  by  the  rate 
which  I3  is  transferred  to  the  surface  by  diffusion  or  convection. 

The  flux  of  mass,  N,  to  the  electrode  surface  can  be  related  to 
the  current  flow  in  the  electrochemical  cell  by 


where  Ae  is  the  surface  area  of  the  electrode  and  F  is  Faradays 
constant.  A  mass  transfer  coefficient,  K,  can  be  defined  by 


(4.5) 


whore  is  the  bulk  concentration  of  the  reacting  species  and  Cw  is 
the  concentration  at  the  surface  of  the  electrode.  If  the  reaction  is 
diffusion  controlled,  Cw  can  be  considered  to  be  zero.  Substituting 
for  N  in  (4.5)  with  (4.4),  the  following  is  obtained: 

K  =  - - —  . 

2CbAeF 

If  the  electrode  is  polarized  (diffusion  limited)  the  current 
flowing  through  the  electrochemical  cell  Is  determined  by 


V  -  Vapp 

Rf 


(4.7) 
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where  V  is  the  output  voltage  of  the  electronic  circuit,  Vapp  is  the 
applied  voltage  and  Rf  the  feedback  resistor.  Substituting  (4.7)  into 
(4.6),  the  following  is  obtained: 


V  -  Vapp 
2r:bAeRRf 


(4.8) 


Therefore,  the  mass  transfer  coefficient  can  be  determined  from  the 
output  voltage  of  the  electronic  circuit. 


B .  Measu ring  Sx  in  Steady  and  Pulsating  Flow 

In  order  to  use  this  technique  to  study  turbulence  close  to  the 
wall,  it  is  necessary  to  relate  the  mass  transfer  coefficient  to  the 
flow  field.  The  mass  balance  equation  in  the  concentration  boundary 
layer  can  be  described  as 


9C  „  ac  a2c 
+  sxyir  = 


at 


ax 


ay2 


(4.9) 


where  a  is  the  diffusivity  and  diffusion  in  the  axial  direction  has  been 
neglected.  In  deriving  (4.9),  Reiss  and  Hanratty  (1963)  assumed  the 
concentration  boundary  layer  thickness  to  be  small  enough  that  the  effect 
of  velocities  normal  to  the  surface  could  be  neglected  and  that  the 
streamwise  velocity  was  given  by 


U  =  Sxy  .  (4.10) 

The  boundary  conditions  used  with  (4.9)  were  the  following: 

C(x,0,t)  =  Cw  s  0  0  5  x  ^  L  (4.11) 


C  ( x ,  *® ,  t )  =  C  ( o  ,  y ,  t )  =  Cb 


(4.12) 


where  L  is  the  effective  length  of  the  electrode. 

For  steady  flow  or  if  the  flow  is  changing  slowly  with  time,  the  first 
term  in  (4.9)  can  be  neglected.  Mitchell  and  Hanratty  (1966)  used  this 
pseudosteady  state  approximation  to  obtain  the  following  expression  for  the 
mass  transfer  coefficient: 

K  L 

-  =  0.807 

i) 

where  D  is  the  diameter  of  the  pipe.  This  relation  is  used  to  obtain  the 
velocity  gradient  at  the  wall  from  measured  values  of  K.  A  more  detailed 
discussion  of  measurements  using  electrochemical  wall  probes  can  be  found 
in  a  review  article  by  Hanratty  and  Campbell  (1983). 

The  pseudosteady  state  approximation  is  not  expected  to  be  valid  for 
all  oscillation  frequencies  studied  in  this  work.  Therefore,  the  results 
of  Mao  and  Hanratty  (1985),  who  numerically  solved  (4.9)  using  a  linearized 
form  of  the  conservation  equation,  are  used  to  correct  for  the  frequency 
response  of  the  concentration  boundary  layer  to  the  imposed  streamwise  flow 
oscillation.  The  discussion  that  follows  is  based  on  their  work. 

The  mass  transfer  coefficient  can  be  represented  as  the  sum  of  an 
average  and  time  dependent  term, 

K  =  K  +  k  ,  (4.14) 


SXL 


(4.13) 


where 


k  =  k  eiwt 


(4.15) 


and  k  is  a  complex  amplitude  equal  to 


The  periodic  variation  of  k  is  characterized  by  an  amplitude, 


|k|  =  [(kr)2  +  (ki)2^ 


(4.17) 


and  by  a  phase  angle 


where  a  positive  $  means  k  lags  the  velocity  gradient, 
represents  the  phase  correction  and 


(4.18) 


Therefore,  (4.18) 


(4.19) 


represents  the  amplitude  correction  that  must  be  applied  to  the  signal 
coming  from  a  probe,  if  the  pseudosteady  state  relation  (4.13)  is  used  to 
calculate  Sx  from  the  time  varying  signal . 

The  numerically  calculated  results  of  Mao  and  Hanratty  (1985)  are  shown 
in  Figures  4.2  and  4.3.  It  is  readily  seen  from  the  figures  that  correc¬ 
tion  for  phase  is  necessary  at  lower  gj+Sc1  /  3L+2 1 3  values  than  it  is  for  the 
correction  of  amplitude.  Table  4.1  lists  the  high  and  low  extremes  for  the 
amplitude  and  phase  corrections  used  in  this  study  .  As  shown  in  Table 
4.1,  the  maximum  phase  correction  was  17.5  degrees  and  the  maximum  ampli¬ 
tude  correction  was  less  than  5%. 

The  following  restrictions  on  L+  must  be  met  if  wall  transfer  probes  are 


to  be  properly  used  in  pulsating  turbulent  flow: 
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Figure  4.2  Amplitude  correction  factor  for  frequency  response 
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Figure  4.3  Phase  lag  due  to  frequency  response 
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1)  L+  <  5  Sc 

2)  L+  <  0.11  (a>+)~3/2  Sc 


(4.20) 


(4.21) 


(4.22) 


The  requirement  that  the  concentration  boundary  layer  be  thinner  than  the 
viscous  sublayer  and  the  Stokes  layer  imposes  restrictions  1  and  2  on  the 
experimental  conditions.  Restriction  3  needs  to  be  satisfied  if  the 
effects  of  diffusion  in  the  streamwise  direction  are  to  be  neglected.  Table 
4.1  lists  the  experimental  conditions  for  the  lowest  and  highest  values. 

The  limiting  restriction  is  number  3.  It  requires  that  an  effective 
electrode  length  greater  than  0.007  cm.  be  used  in  the  experiments.  The 
numerical  calculations  of  Mao  and  Hanratty  (1985)  suggest  a  maximum  value 
of  L  =  0.014  cm.  if  the  amplitude  correction  is  to  be  less  than  5%.  A 
large  electrode  (higher  current)  is  desirable  in  order  to  minimize  the 
noise  content  of  the  signal  from  the  electrode.  Therefore,  electrodes  with 
L=0 . 013  cm.  were  used  in  all  the  experiments. 
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I I .  Experimental  Equipment__and_ Conditions 

Experiments  were  carried  out  in  a  two  inch  pipe  flow  loop  built  by  the 
author  to  measure  turbulent  pulsating  pipe  flow.  A  test  section  was 
designed  and  built  to  study  transverse  spatial  correlation  coefficients  of 
the  streamwise  velocity  fluctuations  near  a  wall  using  electrochemical  wall 
probes.  The  flow  loop  was  interfaced  with  a  Digital  LSI-11/21  computer  to 
enable  digital  analysis  of  the  velocity  fluctuations. 

A  *  Experimental  FI ow  Loop 

The  flow  loop  is  shown  schematically  in  Figure  4.4.  An  electrolyte 
solution  is  pumped  continuously  from  the  holding  tank  through  the  system 
and  returned.  The  reservoir  has  a  capacity  of  225  liters  and  is  con¬ 
structed  of  type  316  stainless  steel.  It  is  covered  with  a  1/2  inch  thick 
piece  of  plexiglass  which  is  painted  black  to  exclude  light.  Operation  of 
the  loop  requires  a  minimum  of  170  liters  of  solution.  The  temperature  of 
the  solution  was  maintained  at  25  ±  0.1  C°  by  a  temperature  controller 
which  activates  the  cooling  water  solenoid  valve  to  allow  laboratory  cold 
water  to  flow  through  stainless  steel  cooling  coils  in  the  tank.  Two  Pall 
polypropylene  filters  of  either  5  micron  or  0.5  micron  size  were  used  to 
remove  debris  from  the  solution. 

The  majority  of  the  flow  loop  is  constructed  of  one  inch  316  stainless 
steel  pipe.  A  7  degree  diffuser  provides  a  smooth  transition  from  the  one 
inch  pipe  to  the  two  inch  plexiglass  tubing.  The  entrance  section  to  the 
test  section  is  340  inches,  which  is  170  pipe  diameters.  The  length  of  the 
entry  section  is  such  that  fully  developed  flow  is  insured  in  the  test 
section.  During  the  steady  state  runs  (no  pulsations)  the  mean  flow  was 
measured  by  a  rotameter  (Fisher  and  Porter,  Model  FP-2-27-G-10) .  When 
pulsations  were  present  in  the  flow,  a  volumetric  measuring  tank  was  used. 
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Figure  4.4  Experimental  apparatus 


The  fluid  was  circulated  by  a  one-stage  positive  displacement  Moyno 
pump  and  the  pulsation  was  introduced  by  a  piston  with  a  diameter  of  5.08 
cm.  and  a  stroke  length  adjustable  from  0  to  10.16  cm..  The  frequency  of 
pulsation  was  changed  by  adjusting  the  voltage  applied  to  the  D.C.  motor 
responsible  for  driving  the  piston.  This  particular  motor  was  chosen  for 
its  superior  response  time  since  a  study  investigating  nonsinusoidal 
pulsations  is  planned  in  the  future. 

B .  Test  Section  Fabrication 

A  test  section  was  built  to  measure  the  transverse  correlation  coeffi¬ 
cients  of  the  streamwise  velocity.  An  array  of  15  circular  platinum 
electrodes  0.016  cm.  in  diameter  (34  gauge)  were  mounted  flush  with  the 
wall  in  the  transverse  direction.  The  center-to-center  distance  between 
each  electrodes  was  0.0254  cm.  and  the  total  distance  between  electrodes  1 
and  15  was  0.3556  cm..  Male-female  type  joints  were  used  to  provide  a 
smooth  and  continuous  connection  between  the  test  section  and  the  flow  loop. 

Preparation  of  the  electrodes  for  use  in  the  flow  loop  required  several 
steps.  A  0.5  cm.  wide,  0.7  cm.  long  groove  was  milled  into  the  test 
section  in  the  transverse  direction.  The  groove  was  cut  about  two-thirds 
through  the  plexiglass  wall,  leaving  only  a  2/5  cm.  distance  to  be  drilled 
with  a  0.02  cm.  drill.  The  drilled  holes  were  only  0.004  cm.  larger  in 
diameter  than  the  34  gauge  platinum  wires.  The  leads  of  the  platinum  wires 
were  soldered  to  copper  wires  and  sprayed  with  electrical  insulation. 

After  the  spray  dried,  the  platinum  wire  was  inserted  through  the 
drilled  hole  and  a  small  drop  of  Techkits  A -12  epoxy  was  placed  on  the  wire 
on  both  sides  of  the  pipe  wall.  The  wire  was  then  drawn  back  and  forth 
through  the  hole  to  fill  the  cavity  with  epoxy.  Excess  epoxy  was  added  to 
the  groove  to  fill  it  and  provide  support  for  the  electrode  wires.  The 


epoxy  was  then  cured  overnight  at  room  temperature. 

A  small-toothed  file  was  used  to  remove  excess  epoxy  and  exposed  wire 
from  the  inside  of  the  pipe.  Care  was  taken  to  avoid  defacing  the  plexi¬ 
glass  pipe  wall.  Sanding  of  the  electrode  surface  was  done  with  progres¬ 
sively  finer  grades  of  wetted  emery  paper.  Polishing  paper  of  grade  4.0 
was  used  to  finish  the  sanding  process.  Final  polishing  was  done  using 
Mirror  (Haze  Plastic  Cleaner  and  Polish  on  a  soft  rag.  This  sanding  and 
polishing  procedure  produced  circular  electrodes  without  deformation  of  the 
pipe  wall. 

C .  Differenti al  Pressure  Measurement 

Determination  of  the  amplitude  and  phase  of  the  pulsating  pressure 
gradient  served  as  a  standard  for  characterizing  the  imposed  flow  pulsa¬ 
tion.  Careful  measurements  of  the  time  varying  pressure  gradient  were 
necessary  since  only  part  of  the  flow  pulsation  from  the  pulsating  pump 
travelled  downstream  to  the  test  section.  The  variation  of  the  centerline 
velocity  was  determined  by  using  (2.10)  and  the  pressure  gradient  measure¬ 
ments.  The  phase  of  the  pressure  gradient  was  also  used  as  a  reference  to 
determine  the  phase  lag  of  the  wall  shear  stress. 

Two  differential  pressure  transducers  were  used  in  this  study.  For  low 
frequencies  of  pulsation,  a  Viatran  differential  pressure  transmitter 
(Model  704-115,  5  inches  water  column)  was  used.  Because  of  its  superior 
frequency  response,  a  C.J.  Enterprises  differential  pressure  transmitter 
(Model  CJVR ,  2.5  inches  water  column)  was  used  for  frequencies  above  0.6 
Hz.  To  eliminate  any  high  frequency  noise  or  vibration  that  the  C.J. 
Enterprises  transmitter  may  sense,  a  Wavetek  Rockland  filter  (Model 
432)  was  used  to  low -pass  filter  the  differential  pressure  signal. 

Calibration  of  the  frequency  response  of  the  transmitters  was  necessary 


since  both  exhibited  response  delays  at  high  frequencies.  The  calibration 
procedure  was  as  follows:  The  flow  loop  was  filled  with  solution  and  the 
valves  upstream  of  the  pump  were  closed  in  order  to  force  all  of  the  flow 
pulsation  downstream  to  the  test  section.  Because  of  the  incompressibility 
of  the  fluid,  the  motion  in  the  test  section  was  in  phase  with  the  piston 
and  the  amplitude  of  the  pressure  gradient  variation  could  be  calculated 
from  the  piston  stroke  length  and  frequency.  Several  frequencies  and 
amplitudes  of  pulsation  were  tested.  Figures  4.5(a)  and  4.5(b)  are  for  the 
Viatran  transmitter  and  Figures  4.6(a)  and  4.6(b)  are  for  the  C.J.  Enter¬ 
prises  transmitter.  As  shown  in  Figures  4.5(a)  and  4.6(a),  the  calculated 
amplitudes  when  compared  to  the  measured  amplitudes  gave  a  straight  line 
passing  through  zero.  This  result  indicates  that  the  amplitude  response  of 

the  transmitters  is  flat  for  all  the  frequencies  used  in  this  study.  It 

} 

was  found  that  the  phase  lag  of  the  transmitters  was  frequency  dependent  as 
shown  in  Figures  4.5(1))  and  4.6(b).  The  response  of  the  C.J.  Enterprises 
transmitter  was  found  to  depend  on  the  cut-off  frequency  of  the  filter. 

This  variation  was  eliminated  by  scaling  the  pulsation  frequency  with  the 
filter  cut  off  frequency.  Using  these  calibration  curves,  the  differen¬ 
tial  pressure  measurements  were  used  as  the  standard  for  characterizing  the 
imposed  flow  pulsations. 

0 .  Data  Acquisition  and  Processing 

The  basic  electrode  circuit  is  shown  in  Figure  4.7.  An  118A  amplifier 
was  used  to  apply  a  negative  potential  (-0.4  volts)  to  the  electrode  and  to 
act  as  a  current -to-voltage  converter.  The  applied  potential  was  set  to 
the  desired  level  by  adjusting  the  IK  helipot.  The  magnitude  of  the 
current  flow  is  a  function  of  the  size  of  the  electrode,  the  concentration 
of  the  K I -- 1 2  solution  and  the  Reynolds  number.  In  this  study,  the  feedback 
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Figure  4.5  Correction  factors  for  the  Viatran  transmitter 


Phase  (degree)  dP/dX  Calc.  (In.  of  water) 


2.5  | - - } - — r- - 1 - r 


150 


2.0 


160 


140 


„  Phase  “  180 


(130  x  f/fc) 


120  L- 

0.00 


i 

0.05 


t 

0.10 


I 

0.15 

f/fc 


i 

0.20 


i 

0.25 


0.30 


dP/dX  Cole.  -  0, 495  x  dP/dX  Exp. 

J _ i _ i _ i _ _ _ 

1  2  3  4  5 

dP/dX  Exp.  (in.  of  water) 


Figure  4.6  Correction  factors  for  the  C.J.  Enterprises  transmitter 
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Figure  4.7  Electrode  circuit 
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Figure  4.8  Block  diagram  of  data  acquisition 


resistor  was  chosen  so  that  the  output  voltage  of  the  amplifier  was  In  the 
range  of  five  to  seven  volts  in  order  to  obtain  good  resolution  in  the 
analog-to-digital  conversion.  Very  small  capacitors  were  used  in  the 
feedback  loop  of  these  circuits  to  avoid  line  capacitance  problems  in  the 
total  circuit. 

The  analog  signals  from  the  wall  electrodes  and  the  differential 
pressure  transmitter  were  digitized  by  a  12  bit  A/D  converter  with  a 
resolution  of  0.00488  volts  and  sampled  by  a  minicomputer  (DEC,  LSI-11/21). 
A  block  diagram  of  the  data  acquisition  system  is  shown  in  Figure  4.8. 

In  the  measurement  of  pulsating  flow,  an  optointerrupter  on  the  pulse 
generator  was  used  to  provide  a  pulse  of  4  volts  when  the  piston  reached  a 
certain  position  in  each  cycle.  This  pulse  served  as  a  phase  reference. 

The  time  between  two  consecutive  pulses  determined  the  period  of  pulsation. 
It  was  measured  with  a  programmable  timer  (Itron,  680)  and  sampled  through 
a  real  time  clock  board  in  the  computer.  For  each  cycle  of  pulsation,  the 
optointerrupter  pulse  initiated  data  sampling.  Thirty-two  samples  per 
cycle  were  taken  In  equal  time  intervals  and  a  total  of  1000  periods  of 
data  were  collected  on  the  disc  of  the  computer  during  each  experiment.  At 
each  sampling  point  the  electrodes  and  differential  pressure  transmitter 
were  simultaneously  sampled  using  a  sample  and  hold  circuit  located  on  the 
A/D  board.  After  the  thirty-second  sample  the  A/D  was  reset  to  wait  for 
the  next  optointerrupter  pulse  at  which  point  the  data  taking  cycle  would 
start  again.  Since  the  time  required  to  reset  the  A/D  was  substantial, 
data  taking  occurred  during  every  other  pulsation  cycle.  Thus,  the  1000 
periods  of  data  were  collected  over  2000  periods  of  pulsation. 

The  digitized  data  were  recorded  in  binary  format  in  order  to  save 
storage  space.  During  data  processing,  the  binary  data  were  converted  to 
voltages  in  decimal  format.  These  voltages  corresponded  to  the  output 


voltages  of  the  electrode  circuit  and  the  differential  pressure  transmitter 
at  each  sampling  instant.  The  output  voltage  of  the  current-to-voltage 
converter  is  related  to  the  velocity  gradient  at  the  wall  through  (4.8)  and 

(4.13) , 

Sx  =  (3(Vout  -  Vapp)3  (4.23) 

where  Vout  is  the  output  voltage  and  Vapp  is  the  voltage  applied  to  the 
electrode  circuit.  Parameter  0  is  a  constant  for  each  run.  Therefore,  the 
periodic  variation  of  the  wall  shear  stress  normalized  by  the  time- 
averaged  value  was  obtained  as 

<SX>  < (Vout  -  Vapp) 3>  ,A  0/n 

17  (Vout  -  Vapp) 3  ' 

The  intensity  of  the  turbulent  velocity  gradient  fluctuations  at  the  wall 
was  given  as 

<7V'8  [<s„  -<sx»7”  (4  25) 


and  the  intensity  of  the  phase-averaged  turbulent  fluctuations,  as 

1/2 


«sx2»1/2  _  [<(SX  -  <SX>)2>] 


(4.26) 


The  time  averaged  correlation  coefficient  of  the  streamwise  velocity 
gradient  at  the  wall  in  the  transverse  direction  was  given  as, 
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where  z  represents  the  differential  distance  in  the  transverse  direction 


between  two  electrodes.  The  phase-averaged  correlation  coefficient  was 


obtained  as 


<(SX(0)  -  <SX(0)>) (Sx(z)  -  <Sx(z)>)> 


(4.28) 


Phase-averages  were  calculated  on  the  computer  in  the  following  manner. 


(4.29) 


where  <E>  are  the  phase-averaged  data  in  one  period  and  n,  the  number  of 
periods  to  be  averaged.  Time-averaging  was  done  by  averaging  the  phase- 
averaged  data  over  one  period, 
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where  m  is  the  number  of  samples  in  one  period.  The  pulsating  component 
was  then  obtained  from 

e  =  <E>  -  E  .  (4.31) 

The  phase-averaged  data  was  fit  with  a  three-harmonic  cosine  function 
using  a  least-square  analysis.  Since  the  amplitude  of  pulsation  in  this 
study  was  relatively  small  (10*  of  the  center  velocity),  only  the  phase  and 
amplitude  of  the  first  harmonic  was  considered. 

E.  Experimental  Procedure  and  Range 

Before  starting  an  experiment  the  differential  pressure  transducer  was 
zeroed  and  the  span  adjusted.  Then  the  mean  and  pulsating  pumps  were 
turned  on.  It  generally  required  about  one  hour  for  all  the  electrical 
equipment  (including  the  pumps)  to  warm  up  and  reach  steady  state.  The 
mean  flowrate  was  adjusted  by  opening  or  closing  the  mean  flow  by-pass 


valve  and  the  solution  temperature  was  maintained  at  25  ±0.1  C°  by  a 
temperature  control ler . 

The  working  fluid  was  an  aqueous  solution  of  0.1  M  potassium  iodide  and 
0.004  M  iodine.  The  kinematic  viscosity  of  the  solution  was  0.00866 
cm2/sec.  The  results  of  polarization  tests  using  this  solution  are  shown 
in  Figure  4.9.  The  plateau  region  in  each  curve  represents  the  currents  at 
which  the  mass  transfer  to  the  electrode  is  diffusion  limited.  The  results 
show  that  an  applied  voltage  of  -0.4  volts  polarized  the  electrodes  over 
the  range  of  Reynolds  numbers  used  in  this  investigation.  Therefore,  all 
measurements  were  taken  at  this  applied  voltage. 

To  prevent  distortion  of  the  sine  wave  generated  by  the  pulsating  pump 
it  was  important  to  design  the  flow  loop  with  large  amounts  of  pressure 
drop  between  the  pulsating  and  mean  pumps.  Therefore,  the  mean  flow  was 
forced  to  go  through  the  cleansing  filters  which  have  relatively  high 
pressure  drop.  This  forced  about  95%  of  the  flow  pulsation  to  travel 
downstream  to  the  test  section  and  minimized  the  distortions  caused  by  the 
time  response  of  the  whole  flow  loop. 

For  all  the  experiments,  the  amplitude  of  pulsation  (centerline 
velocity  variation)  was  set  at  10%  ±  0.2.  The  reason  for  using  a  small 
amplitude  was  to  eliminate  nonlinear  effects  and,  therefore,  to  make  the 
analysis  of  the  results  easier.  The  centerline  variation  was  not  measures 
directly.  Instead,  the  following  method  was  used.  Assuming  the  Blasius 
friction  law  to  be  valid,  Uq/Uq  =  0.8.  From  the  measured  pressure 
gradient  and  the  plug  flow  relation,  (3.70),  the  amplitude  of  the  center- 
line  variation  can  be  calculated  from  the  following: 
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Figure  4.9  Polarization  curves 
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For  some  of  the  lower  <o+  runs,  a  plug  flow  condition  may  not  have  existed 
in  the  center  of  the  pipe  and,  therefore,  the  use  of  (3.70)  is  not  valid 
However,  the  empirical  eddy  viscosity  model  results,  which  are  discussed  in 
Section  5.II.B,  indicate  that  the  error  in  assuming  plug  flow  for  these 
runs  is  less  than  5%.  Therefore,  (4.31)  was  used  to  determine  the  ampli¬ 

tude  of  the  centerline  variation  for  all  the  runs. 

The  experimental  flow  loop  was  designed  to  cover  as  wide  a  range  of 
pulsation  frequencies  and  amplitudes  as  possible.  For  comparison  purposes, 
it  was  desired  to  overlap  the  high  frequency  data  of  Mao  and  Hanratty 

(1986)  taken  in  an  eight  inch  pipe.  Measurements  of  turbulent  structure  at 

lower  frequencies,  where  inertia  is  not  expected  to  dominate  the  flow  field, 
were  also  desirable.  These  goals  were  realized  by  using  frequencies 
between  0.2  and  1.5  Hz.  and  Reynolds  numbers  between  8650  and  44900.  The 
experimental  conditions  for  each  run  is  listed  in  Table  4.2  along 
with  some  important  dimensionless  groups  used  to  characterize  the  flow 


field . 


Table  4.2 

Experimental  Conditions 


C 0 + 
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Re 
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0.00120 
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Chapter  5.  RESULTS 


The  first,  section  of  this  chapter  presents  the  numerical  results  of  the 
constant  pressure  gradient  study  for  three  values  of  the  pressure  gradient. 
In  the  second  section,  the  pulsating  pressure  gradient  experimental  and 
numerical  results  are  discussed. 

I .  Constant  Pressure  Gradient  Turbulent  Flows 

Solutions  of  the  vorticity  and  stream-function  equations  subject  to  the 
boundary  conditions  (3.17),  (3.18)  and  (3.19)  are  presented  for  three  I 
All  the  relative  parameters  that  are  needed  to  specify  completely  (3.17), 
(3.18)  and  (3.19)  were  selected  according  to  the  arguments  presented  in 
Section  3.I.C,  and  are  summarized  in  Table  5.1. 


TABLE  5.1 

Summary  of  Parameter  Values 
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A .  Statistics 

Average  properties  of  the  fluctuating  quantities  are  calculated  at  a 
fixed  distance  from  the  wall  by  averaging  both  in  time  and  in  the  spanwise 
direction.  These  are  compared  with  laboratory  measurements  of  the  statis¬ 
tical  properties  of  wall  turbulence. 


1 ♦  Comp a r i 6on  with  Nonaccelerated  Experimental  Data 

This  section  presents  the  results  of  the  calculations  of  flows  without 
imposed  pressure  gradients.  Comparison  with  zero  pressure  gradient 
experimental  data  provides  a  basis  for  judging  the  validity  of  the  model. 
Also,  the  zero  pressure  gradient  calculations  provide  the  standard  by  which 
the  changes  in  the  viscous  wall  region  that  are  due  to  an  imposed  pressure 
gradient  can  be  determined. 

After  the  mean  velocity  profile  reached  steady  state  (invariant  from 
cycle  to  cycle),  space  and  time  averages  of  the  flow  variables  were 
calculated  over  an  additional  cycle  equal  to  Tg  in  time.  Figures  5.1 
through  5.4  present  the  average  mean  velocity  profile,  the  intensities  of 
the  fluctuating  components  of  the  velocity,  the  Reynolds  stress  and  uv 
correlation  coefficient,  and  the  skewness  and  flatness  of  the  streamwise 
velocity  component.  It  can  be  seen  that,  overall,  the  agreement  with  the 
experimental  data  is  satisfactory.  In  particular  the  calculated  Reynolds 
stress  shows  very  good  agreement  with  experiments.  The  calculated  v-inten~ 
sity  profile  attains  somewhat  lower  values  than  what  the  experiments 
indicate  close  to  the  wall,  but  agrees  with  the  experimental  data  quite 
well  in  the  region  y+  >  25.  Recent  measurements  of  the  turbulent  velocity 
fluctuations  normal  to  the  wall  obtained  by  Finnicum  and  Hanratty  (1985) 
with  flush  mounted  wall  electrodes  suggest  that  the  experimental  data  close 
to  the  wall  are  in  error  due  to  probe-wall  interactions  and  that  the  true 
values  are  closer  to  those  obtained  from  the  calculations. 

2 .  Nonze ro  Pressure  Grad ient  Statistics 

This  section  presents  the  statistical  results  of  the  calculations  of 
flows  with  imposed  constant  pressure  gradients.  Two  pressure  gradients  are 
considered:  an  intermediate  pressure  gradient  of  P*  =  -0.0162  and  the 
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Figure  5,1  Streamwise  mean  velocity  and  intensity  for  P 
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Figure  5.2  Intensities  of  the  normal  and  spanwise  velocity 
fluctuations  for  Peo+  =  0.0 
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figure  5,3  Reynolds  stress  and  Reynolds  stress  correlation 
for  PeQ+  =o.O 
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Figure  5.4  Skewness  and  flatness  of  the  streamwise  velocity 
fluctuations  for  Peo+  =  0.0 
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incipient  relaminar izatlon  run  of  Ph  -  -0.0225.  As  discussed  iri  Section 
3.E.3,  these  values  are  obtained  by  specifying  Peo*,  performing  the 
calculation,  and  then  determining  P+  from  (3.15).  In  all  the  figures  in 
this  section,  the  solid  lines  correspond  to  the  nonaccelerated  flow,  the 
dashed  lines  correspond  to  the  intermediate  pressure  gradient  flow,  and  the 
dotted  lines  correspond  to  the  relaminar ization  run. 

Figure  5.5  shows  the  results  for  the  mean  velocity  profiles.  The 
analytical  relation  of  Launder  and  Stinchcombe  (1967)  for  accelerated 
laminar  boundary  layers  is  also  included  in  the  figure.  The  dash-dot-dash 
line  corresponds  to  the  laminar  mean  velocity  profile  that  would  be 
obtained  after  the  relaminarization  of  a  flow  with  a  pressure  gradient  just 
greater  than  -0.0225.  Three  effects  on  the  mean  velocity  profile  are 
noted.  Tn  the  viscous  wall  layer  (y+  <  6),  the  accelerated  flows  are 
slightly  less  than  the  nonaccelerated  flow.  This  is  due  to  the  velocity 
profile  having  to  satisfy  the  Couette  flow  relation  ,  (3.51),  as  y+-0.  As 
the  imposed  pressure  gradient  increases,  the  velocity  profile  outside  the 
viscous  wall  layer  increases  toward  the  laminar  value  indicating  that  the 
flow  is  becoming  less  turbulent.  Relation  (3.23)  predicts  that  the  slope 
of  the  mean  profile  at  y0*  would  he  lower,  since  r0+  is  lower  and  y0f  is 
higher,  in  favorable  pressure  gradients.  The  results  of  the  calculation 
agree  with  (3.23)  in  that  the  slopes  at  y0+  are  decreasing  as  P*  is 
increased.  These  trends  are  in  agreement  with  experimental  results  found 
in  the  literature  [Jones  and  Launder  (1972),  Badri  Narayanan  and  Ramjee 
(1969),  and  Blackwelder  and  Kovasznay  (1969)].  The  mean  velocity  data  of 
Loyd  et.  al.  (1970)  for  K  =  0,  2xl0~6  are  compared  with  the  calculated 
profiles  in  Figure  5.6.  Good  agreement  is  observed. 

The  u  intensity  profiles  for  the  three  runs  are  shown  in  Figure  5.7. 
Increasing  the  pressure  gradient  has  the  effect  of  moving  the  peak  in  the 
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5.5  Mean  velocity  profiles  for  several  pressure  gradients 
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Figure  5.6  Comparison  of  mean  velocity  profiles  with  experimental  data 


Figure  5,7  Intensity  of  the  streamwise  velocity  fluctuations 
for  several  pressure  gradients 
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profile  away  from  the  wall  and  of  slightly  lowering  the  maximum  value. 

Figure  5.8  shows  the  v  and  w  intensity  profiles.  In  contrast  to  the  u 
intensity  profile,  there  is  a  dramatic  decrease  in  the  fluctuations 
throughout  the  viscous  wall  region  as  the  imposed  pressure  gradient  is 
increased.  The  Reynolds  stress,  shown  in  Figure  5.9,  also  shows  a  dramatic 
decrease  in  amplitude. 

These  results  agree  with  experimental  data  [Jones  and  Launder 
(1972),  Launder  and  Stinchcombe  (1967),  and  Badri  Narayanan  and  Ramjee 
(1968)]  showing  a  high  streamwise  intensity  at  pressure  gradients  up  to  the 
relaminarizat ion  point.  The  data  of  Badri  Narayanan  and  Ramjee  (1968) 
indicate  that  after  relaminarization  there  is  a  rapid  decay  of  streamwise 
fluctuations  till  an  essentially  laminar  flow  remains.  The  Reynolds  stress 
correlation  results  are  also  shown  in  Figure  5.9.  No  effect  of  pressure 
gradient  is  observed  on  the  correlation  of  the  Reynolds  stress.  This 
indicates  that  the  decrease  in  the  Reynolds  stress  is  associated  more  with 
a  reduction  in  the  amplitude  of  the  secondary  motion  than  with  a  change  in 
the  basic  processes  involved. 

Figure  5.10  shows  the  streamwise  sqewness  and  flatness  profiles  for  the 
three  cases.  The  large  positive  sqewness  near  the  wall  is  the  result  of 
inflows  of  high  streamwise  momentum  close  to  the  wall  and  the  negative 
sqewness  is  the  result  of  ejections  of  low  momentum  fluid.  As  seen  in 
Figure  5.10,  both  quantities  are  roughly  independent  of  pressure  gradient. 

B .  Energy  Balances 

According  to  the  classical  theory  of  turbulence  [Terinekes  and  Lumley 
(1981)]  the  internal  dynamics  of  turbulence  transfers  energy  from  large 
scales  to  small  scales.  For  a  fully  developed  turbulent  flow  the  energy 
supplied  to  the  flow  comes  from  the  imposed  pressure  gradient.  This  energy 
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Figure  5.8  Intensities  of  the  normal  and  spanwise  velocity 
fluctuations  for  several  pressure  gradients 
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Figure  5.9  Reynolds  stress  and  Reynolds  stress  correlation 
for  several  pressure  gradients 
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Figure  5.10  Skewness  and  flatness  of  the  streamwise  velocity 
fluctuations  for  several  pressure  gradients 
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is  supplied  to  the  mean  flow  eddies  whose  size  is  comparable  to  the 
thickness  of  the  boundary  layer.  Turbulence,  then,  extracts  energy  from 
the  mean  flow  eddies  and  by  nonlinear  interaction  cascades  it  from  large 
small  eddies,  down  to  the  Kolmogorov  microscale  eddies  where  the  energy  is 
dissipated  into  heat. 


1  Mean  Kinetic  Energy  Balance 

From  Townsend  (1976),  the  equation  for  the  mean  flow  kinetic  energy  in 
a  boundary  layer  is  as  follows  (all  quantities  are  dimensionless): 
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(5.1a) 


Term  I  is  the  adveetion  term  and  Term  II  represents  the  rate  of  energy 
supply  to  the  mean  flow  by  the  imposed  pressure  gradient.  Term  III 
represents  the  energy  flux  in  toward  the  wall  by  Reynolds  stresses  working 
on  the  mean  velocity.  Term  IV  is  the  amount  of  energy  extracted  from  the 
mean  flow  by  the  working  of  the  Reynolds  stress  against  the  mean  shear. 
Term  V  is  the  transport  of  mean  flow  energy  by  viscous  stresses  and  Term 
VI  is  the  direct  viscous  dissipation  of  mean  flow  energy. 

Terms  I  and  II  can  be  combined  to  give  the  following: 
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VII 
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II 

Term  VII  represents  the  net  amount  of  energy  supplied  to  the  mean  flow  by 
the  pressure  gradient.  The  shear  stress  gradient  is  calculated  from  (3.16) 
and  Term  I  is  obtained  by  subtracting  II  from  VII.  For  a  flow  without 
acceleration  Terms  I,  II  and  VII  are  negligible.  The  balance  for  the  three 
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terms  is  shown  in  Figure  3.11(a)  for  the  P00  +  =  -0.00962  run.  Terms  i  and 
II  are  shown  to  have  high  values  throughout  the  viscous  wall  region  that 
are  opposite  in  sign.  The  difference  between  the  two  terms,  which  repre¬ 
sents  the  net  amount  of  energy  supplied  by  the  pressure  gradient,  increases 
from  zero  at  the  wall  to  a  maximum  of  0.15  at  y+  =  14  and,  then,  steadily 
decreases  as  the  distance  from  the  wall  increases.  Near  the  edge  of  the 
viscous  wall  region  the  amount  of  energy  supplied  by  the  pressure  gradient 
to  the  turbulence  is  less  than  20%\  the  rest  is  used  to  change  the  inertia 
of  the  fluid.  Because  the  effect  of  the  pressure  gradient  outside  the 
viscous  wall  region  is  small,  the  viscous  wall  region  reacts  faster  to  an 
imposed  pressure  gradient  than  the  outer  regions  of  the  flow. 

Integration  of  each  term  as  a  function  of  y+  produces  the  curves  shown 
in  Figure  5.11(b).  The  integrated  value  of  Term  VII  at  the  edge  of  the 
viscous  wall  region  represents  the  total  amount  of  energy  supplied  by 
the  shear  stress  gradient  to  the  turbulence  in  the  viscous  wall  region. 

Even  though  it  is  only  one -third  the  contribution  of  the  pressure  gradient, 
it  is  still  a  relatively  large  amount  of  mean  flow  energy. 

The  full  mean  kinetic  energy  balance  for  the  nonaccelerated  flow  (P+  = 
0.0)  is  shown  in  Figure  5.12(a).  The  loss  of  mean  flow  energy  to  the 
turbulent  fluctuations  is  replenished  by  an  energy  flux  to  the  wall.  A 
large  amount  of  mean  flow  energy  is  transported  into  the  viscous  wall 
region  by  Term  III.  This  input  of  energy  is  roughly  balanced  by  the  loss 
of  energy  to  the  turbulent  fluctuations  and  to  direct  viscous  dissipation. 
The  balance  for  the  Peo+  =  -0.00962  run  is  shown  in  Figure  5.12(b).  Term 
VII,  the  net  amount  of  energy  supplied  by  the  pressure  gradient,  is 
observed  to  be  a  relatively  large  source  of  mean  flow  energy  in  the  viscous 
wall  region.  This  extra  source  of  energy  in  the  viscous  wall  region 
relieves  the  demand  for  mean  flow  energy  from  outside  the  viscous  wall 
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Figure  5.11  Energy  supplied  by  the  pressure  gradient 


1  1  3 


y4 


Figure  5.12  Mean  kinetic  energy  balance 
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region  and,  therefore,  a  drop  is  observed  in  Term  III.  The  flow  Is  less 
turbulent  since  the  amount  of  energy  lost  to  the  fluctuations,  Term  IV, 
also  decreases.  Integration  of  each  term  with  respect  to  y+  for  the  two 
runs  is  shown  in  Figure  5.13.  Focusing  on  the  values  near  the  edge  of  the 
viscous  wall  region,  it  is  observed  that  the  presence  of  the  large  favor¬ 
able  pressure  gradient  reduces  by  over  50%  the  amount  of  eneigy  transported 
into  the  viscous  wall  region  from  the  rest  of  the  flow.  This  loss  of 
energy  is  compensated  by  the  presence  of  the  large  amount  of  energy 
supplied  by  the  shear  stress  gradient. 

Thus,  the  pressure  gradient,  through  the  shear  stress  gradient,  is  seen 
to  be  a  large  source  of  energy  in  the  viscous  wall  region.  This  is  a  major 
change  from  the  nonaccelerated  flow  where  all  of  the  energy  is  transported 
into  the  viscous  wall  region  by  Reynolds  stresses  working  on  the  mean 
velocity. 

2 •  PI actuating  Ki net ic  Energy  Balance 

From  Hinze  (1975),  the  equation  for  the  total  turbulent  fluctuating 
kinetic  energy  in  a  boundary  layer  is  as  follows  (all  quantities  are 
dimensionless) : 
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Terms  I  and  III  are  transfer  terms  that  redistribute  the  turbulent  kinetic 
energy  between  different  regions  of  the  flow.  Term  I  represents  the 
convective  diffusion  by  turbulence  of  the  turbulent  kinetic  energy.  Term 
III  represents  the  viscous  diffusion  of  turbulent  kinetic  energy.  Term  II 
represents  the  production  of  turbulent  kinetic  energy  from  the  mean  kinetic 
energy.  This  term  is  exactly  the  same  as  Term  IV  in  (5.1)  except  of 
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Figure  5.13  Integrated  mean  Kinetic  energy  balance 
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opposite  sign.  And  Term  IV  is  the  dissipation  that  would  occur  in  an 
isotropic  field.  It  is  used  here  instead  of  the  true  dissipation  because 
this  formulation  allows  for  straightforward  physical  interpretation  of  the 
viscous  terms. 

The  turbulent  kinetic  energy  balance  is  shown  in  Figure  5.14.  The 
production  of  turbulent  kinetic  energy  is  large  throughout  the  viscous  wall 
region.  The  production  curve  reaches  a  maximum  of  0.25  at  y+  =  12.  This 
is  expected  since  the  production  is  the  product  of  the  turbulent  and 
viscous  stresses,  whose  sum  is  equal  to  1  in  wall  variables.  This  means 
that  the  product  is  maximized  when  the  two  stresses  are  equal  to  each  other 
and  attain  the  value  of  0.5  in  wall  units.  At  the  wall  the  dissipation  is 
equal  to  the  viscous  diffusion  of  the  turbulent  kinetic  energy.  The 
dissipation  is  fairly  large  throughout  the  viscous  wall  region.  The 
balance  for  the  Pe0  +  =  -0.00962  run  is  shown  in  Figure  5.14.  The  effect  of 
the  favorable  pressure  gradient  is  to  dramatically  reduce  the  magnitudes  of 
all  the  terms.  However,  no  dramatic  changes  are  observed  in  the  turbulent 
kinetic  energy  balance.  If  the  bursting  process  itself  was  changed  by  a 
favorable  pressure  gradient,  then  a  radically  different  fluctuating  kinetic 
energy  balance  would  be  observed.  The  absence  of  this  change  supports  the 
idea  presented  in  Section  5.1.2  that  the  major  effect  of  the  large  favor¬ 
able  pressure  gradient  is  the  reduction  in  magnitude  of  the  secondary  flow. 
The  amount  of  reduction  is  determined  by  the  decreased  value  of  the  shear 
stress  at  the  edge  of  the  viscous  wall  region. 

1 1 •  Pul  sating  Pressure  Gradient  Turbulent  Flows 

In  this  section,  measurements  of  the  wall  shear  stress  in  turbulent 
pulsating  pipe  flow  are  presented.  Comparison  is  made  with  the  numerical 
results,  using  eddy  viscosity  models  developed  in  Chapter  3. 
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Figure  5.14  Fluctuating  kinetic  energy  balance 
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A .  Experimental  Results 

The  time  averaged  and  phase  averaged  resuits  are  presented  for  the  wall 
shear  stress,  the  turbulent  fluctuations  of  the  wall  shear  stress,  and  the 
transverse  correlation  coefficients  of  the  streamwise  velocity  gradient  at 
the  wall.  The  correlation  coefficient  measurements  are  analyzed  to 
determine  the  effect  of  the  time  varying  pressure  gradient  on  the  streak 
spacing  at  the  wall,  ^0+. 

1  *  Time  Averaged  Results 

The  measured  time  averaged  values  of  the  velocity  gradient  at  the  wall 
are  shown  in  Figure  5.15.  The  results  agree  with  the  Blasius  friction  law 
for  turbulent  pipe  flow.  No  differences  are  observed  between  the  results 
with  and  without  pulsation.  This  clearly  shows  that  the  imposed  pulsations 
do  not  reduce  drag  in  the  flow.  This  was  expected  since  the  amplitude  of 
the  pulsations  was  small  (10%  centerline  velocity  variation),  and  the 
pulsations  were  sinusoidal  in  nature. 

Intensities  of  the  turbulent  fluctuations  of  the  velocity  gradient  at 
the  wall  are  shown  in  Figure  5.16.  The  intensities  are  independent  of 
Reynolds  number  and  of  the  imposed  flow  pulsation.  The  value,  0.31,  agrees 
with  previous  measurements  by  other  researchers  [Sirkar  (1969),  Fortuna  and 
Hanratty  (1971),  Eckelman  (1971)]. 

Figures  5.17  to  5.21  show  the  time  averaged  results  of  the  measurements 
of  the  transverse  correlation  coefficient  of  the  streamwise  velocity 
gradient  at  the  wall  for  a  wide  range  of  values.  Physical  distances 
when  normalized  with  wall  variables  are  smaller  at  lower  Reynolds  numbers. 
Thus,  the  correlation  curves  for  the  low  Reynolds  number  runs  do  not  extend 
as  far  in  the  z+  direction  as  the  runs  at  higher  Reynolds  numbers.  It  is 
seen  from  the  figures  that  the  imposed  pulsations  have  no  effect  on  the 


Sx  (1/sec) 


Re 


Figure  5.15  Time  averaged  velocity  gradient  at  the  wall 
for  pipe  flow  with  and  without  pulsation 
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Figure  5.16  Time  averaged  intensities  of  turbulent  fluctuations  of  the  velocity 
gradient  at  the  wall  with  and  without  pulsation 
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Figure  5.17  Time  averaged  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wall  with  and  without 
pulsation  at  uf  =  0.0012 
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Figure  5.18  Time  averaged  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wail  with  and  without 
pulsation  at  (j  =  0.00375 
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Figure  5.19  Time  averaged  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wall  with  and  without 
pulsation  at  -  0.0093 
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Figure  5.20  Time  averaged  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wall  with  and  without 
pulsation  at  cj *  =  0.021 
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Figure  5.21  Time  averaged  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wall  with  and  without 
pulsation  at  uT  =  0.036 
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time  averaged  correlation  curves. 


2 .  Phase  Averaged  Results 

Figures  5.22  to  5.44  give  a  set  of  phase  averaged  data  for  w+  values 
ranging  from  0.0012  to  0.0915.  In  each  figure,  the  phase  averaged  favor¬ 
able  pressure  gradient  normalized  with  wall  variables  is  given  in  (a),  th 
phase  averaged  velocity  gradient  at  the  wall  normalized  with  its  time  mean 
value  is  shown  in  (b),  and  the  phase  averaged  intensity  of  turbulent 
fluctuations  of  velocity  gradient  at  the  wall  is  plotted  in  (c).  The 
abscissa  is  the  phase  in  a  cycle.  The  data  have  been  phase  averaged  over 
1000  periods  and  corrected  for  frequency  response. 

There  are  two  extremes  in  the  data.  One  extreme  has  the  characteris¬ 
tics  of  a  high  Re  and  a  low  frequency  of  pulsation.  This  corresponds  to 
low  u)+  values.  The  high  w+  extreme  corresponds  to  a  low  Re  and  a  high 
frequency  of  pulsation.  The  amplitude  characteristics  of  the  pulsating 
pressure  gradient  at  these  two  extremes  can  be  quantitatively  explained 
using  well  known  empirical  relationships.  Fixing  the  centerline  variation 
at  10%  gives  the  following: 

»  0.1  Re  v 

Up  =  - - - r —  (5.3) 

D  (UB/UC) 

Using  (3.70),  (5.3),  and  the  Blasius  friction  law  (n  =  \) , 

u*  =  0.19875  (y/D)  Re7/8  ,  (5.4) 


the  amplitude  of  the  pulsating  pressure  gradient  for  a  10%  variation  of  the 
centerline  velocity  can  be  calculated  from  the  following: 
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Figure  5.22  Phase  averaged  values  at  Re  =  44,900,  f  =  0.35  Hz, 
<j+  =  0.0012  and  a  =  0.1 
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Figure  5.23  Phase  averaged  values  at  Re  =  42,000,  f  =  0.35  Hz, 
Cj+  =  0.00135  and  a  =  0.101 
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Figure  5.24 


Phase  averaged  values  at  Re  =  29,400,  f  =  0.25  Hz, 
a>+  =  0.0018  and  a  =  0.099 
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Figure  5.25  Phase  averaged  values  at  Re  =  23,700,  f  -  0.20  Hz, 
Cj+  =  0.0021  and  a  =  0.1 


INTENSITY  -dP/dX 

«TAU» 


1  3  1 


0.01 

0.00 

-0.01 

0  90  180  270  360 

1.3 

1.0 

0.7 

0.09 

0.00 

-0.09 


0  90  180  270  360 

(b)  PHASE 


Figure  5.26  Phase  averaged  values  at  Re  =  31,800,  f  =  0.60  Hz, 
U+  =  0.00375  and  a  =  0.098 
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Figure  5.27  Phase  averaged  values  at  Re  =  25,200,  f  =  0.40  Hz, 
l/  =  0.00375  and  a  =  0.1 
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Figure  5.28  Phase  averaged  values  at  Re  =  20,100,  f  =  0.30  Hz, 
<J+  =  0.0042  and  a  =  0.101 
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Figure  5.29  Phase  averaged  values  at  Re  =  23,000,  f  =  0.45  Hz, 
=  0.00495  and  a  =  0.098 
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Figure  5.30  Phase  averaged  values  at  Re  =  21,400,  f  =  0.60  Hz, 
CJ+  =  0.0075  and  a  =  0.099 
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Figure  5.31  Phase  averaged  values  at  Re  =  17,100,  f  =  0.50  Hz, 
CJ+  =  0.0093  and  a  =  0.102 
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Figure  5.32  Phase  averaged  Re  =  14,500,  f  =  0.50  Hz, 
<j+  =  0.0123  and  a  =  0.1 
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Figure  5.33  Phase  averaged  values  at  Re  =  17,900,  f  =  1.00  Hz, 
'  (j  =  0.0172  and  a  =  0.098 
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Figure  5.34  Phase  averaged  values  at  Re  =  10,600,  f  =  0.45  Hz, 
U)+  =  0.0195  and  a  =  0.101 
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Figure  5.35  Phase  averaged  values  at  Re  =  10,700,  f  =  0.50  Hz, 
<J+  =  0.021  and  a  =  0.102 
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Figure  5.36  Phase  averaged  values  at  Re  =  15,300,  f  =  1.00  Hz, 
l/  =  0.0225  and  a  =  0.099 
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Figure  5.37  Phase  averaged  values  at  Re  =  14,600,  f  =  1.00  Hz, 
W+  =  0.0244  and  a  =  0.098 
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Figure  5.38  Phase  averaged  values  at  Re  =  14,200,  f  =1.00  Hz, 
U+  =  0.0258  and  a  =  0.101 
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Figure  5.39  Phase  averaged  values  at  Re  =  10,300,  f  =  0.60  Hz, 
0>+  =  0.0270  and  a  =  0.101 
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Figure  5.40  Phase  averaged  values  at  Re  =  8,750,  f  =  0.60  Hz, 
W+  =  0.0360  and  a  =  0.099 
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Figure  5.41  Phase  averaged  values  at  Re  =  11,400,  f  =  1.00  Hz, 
(J+  =  0.0375  and  a  =  0.098 
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Figure  5.42  Phase  averaged  values  at  Re  =  9,200,  f  =  1.00  Hz, 
t*>+  =  0.0550  and  a  =  0.100 
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Figure  5.43  Phase  averaged  values  at  Re  =  10,300,  f  =  1.50  Hz, 
U+  =  0.0675  and  a  =  0.101 
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Figure  5.44  Phase  averaged  values  at  Re  =  8,650,  f  =  1.50  Hz, 
(J+  =  0.0915  and  a  =  0.100 
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From  (5.5),  the  amplitude  of  the  dimensionless  pressure  gradient  depends  on 
the  frequency  of  pulsation  to  the  first  power  and  the  Reynolds  number  to 
the  -13/8  power.  The  amplitude  of  the  dimensionless  pressure  gradient  is 
equal  to  0.0028  at  the  low  extreme  of  <o+  =  0.0012  and  equal  to  0.180  at  the 
high  extreme  of  =  0.0915.  Thus,  the  amplitude  of  the  pressure  gradient 
increases  64  times  from  the  low  to  the  high  extremes  of  the  data  set. 

As  can  be  seen  in  the  figures,  the  variation  of  the  pressure  gradient 
and  the  shear  stress  at  the  wall  is  well  described  by  a  single  harmonic. 

The  solid  line  in  the  figures  was  plotted  using  the  amplitude  and  phase  of 
the  first-harmonic  of  a  three -harmonic  fit  to  the  data.  The  amplitude  of 
the  second-harmonic  was  found  to  be  always  less  than  10%  of  that  of  the 
first-harmonic.  [n  several  of  the  runs  a  low  amplitude  nonlinearity  is 
observed  in  the  phase  averaged  pressure  gradient.  This  nonlinearity  was 
due  to  the  gears  in  the  pulsating  pump  having  some  slack  that  would  cause 
the  pump  to  "jump"  whenever  it  switched  from  pushing  to  pulling  or  vice 
versa.  This  problem  is  less  acute  at  high  Reynolds  numbers  since  the  force 
exerted  on  the  pump  by  the  mean  pressure  gradient  is  large  enough  to 
prevent  the  gears  from  shifting.  This  problem  was  low  enough  in  amplitude 
so  as  not  to  affect  the  results. 

Figure  5.22  shows  the  phase  averaged  results  for  =  0.0012.  This 
value  corresponds  to  the  lowest  <u+  measured  in  this  study.  It  is  seen  from 
Figure  5.22  that  the  shear  stress  at  the  wall  lags  the  favorable  pressure 
gradient  by  about  90  degrees.  The  empirical  eddy  viscosity  calculations 
indicate  that  plug  flow  still  exists  in  the  center  of  the  pipe.  Thus,  the 
variation  of  the  centerline  velocity  lags  behind  the  imposed  pressure 
gradient  by  90  degrees,  but  is  in  phase  with  the  wall  shear  stress.  This 
result  implies  that  the  amplitude  of  the  wall  shear  stress  can  be  described 
by  the  pseudo-steady  approximation  derived  in  Chapter  3.  Relation  (3.77) 


1  5  1 

evaluated  for  a  Re  =  44,900  gives  |?W+|/|Q0+I  B  0.088.  This  value  is  in 
very  good  agreement  with  the  measured  value  of  0.084. 

The  variation  of  the  turbulence  is  seen  in  Figure  5.22  to  be  in  phase 
with  the  wall  shear  stress.  If  the  imposed  pulsation  is  low  enough  in 
frequency,  the  variation  of  the  turbulence  in  the  viscous  wall  region  can 
be  described  by  the  scaling  arguments  and  concepts  developed  for  constant 
imposed  pressure  gradients.  Also,  at  low  frequencies  the  variation  of  the 
shear  stress  at  the  wall  will  be  of  the  same  order  of  magnitude  and, 
roughly,  in  phase  with  the  shear  stress  variation  at  the  outer  edge  of  the 
viscous  wall  region.  Therefore,  for  this  type  of  flow,  (3.25)  is  approxi¬ 
mately  equal  to  the  following: 

<q0+>  =  ct(<T„+>)%  ,  (5.6) 

where  Cj  is  a  constant.  Assuming  that  r^+  varies  as  q0+,  (5.6)  predicts 
that  the  phase  of  will  be  roughly  in  phase  with  the  variation  of  the 
wall  shear  stress.  It  is  seen  from  Figure  5.22  that  this  is  the  case. 

This  result  implies  that  the  imposed  pressure  gradient  is  varying  slow 
enough  to  enable  the  turbulence  to  respond  to  the  imposed  shear  stress. 
Therefore,  the  flow  at  low  a>+  is  said  to  be  in  "equilibrium"  with  the 
imposed  pressure  gradient. 

At  higher  dimensionless  frequencies,  the  turbulence  will  no  longer  be 
able  to  follow  the  imposed  pressure  gradient  and  the  amplitude  of  the 
variation  of  the  turbulence  will  decrease.  The  phase  averaged  results  for 
o)+  =  0.0270  are  shown  in  Figure  5.39.  Even  though  the  amplitude  of  the 
imposed  pressure  gradient  is  twenty  times  the  one  in  Figure  5.22,  the 
amplitude  of  the  variation  of  the  turbulence  is  an  order  of  magnitude  less. 

A  dramatic  change  is  also  observed  in  the  phase  relative  to  the  pressure 
gradient.  The  wall  shear  stress  is  observed  to  lag  the  favorable  pressure 
gradient  by  45  degrees.  This  change  in  phase  lag  from  90  to  45  degrees 


1  5  2 


occurs  over  a  very  narrow  range  of  values.  It  Is  believed  that  this 
sharp  change  in  phase  is  associated  with  a  relaxation  phenomena,  whereby 
the  turbulence  does  not  respond  immediately  to  the  imposed  pressure 
gradient.  This  same  type  of  phenomena  has  also  been  observed  in  flow  over 
a  wavy  surface  [Abrams  and  Hanratty  (1985)]. 

At  high  a>+,  the  variation  of  the  wall  shear  stress  should  behave  as  in 
laminar  pipe  flow.  This  is  because  all  of  the  change  in  the  pulsating 
velocity  occur  very  close  to  the  wall  where  turbulence  is  negligible.  From 
(3.73),  the  wall  shear  stress  should  lag  the  pressure  gradient  by  45 
degrees.  This  is  exactly  what  is  observed  for  the  wall  shear  stress  data 
taken  at  a>+  =  0.0550  and  shown  in  Figure  5.42.  Since  the  pulsating 
component  of  the  velocity  is  expected  to  have  no  effect  on  the  turbulence 
(which  agreement  with  the  quasi- laminar  solution  implies)  the  variation  of 
the  turbulent  quantities  should  be  zero.  Instead,  a  highly  nonlinear  large 
amplitude  variation  is  observed  in  the  turbulence  measurements.  This 
nonlinearity  contrasts  with  the  linear  response  observed  at  lower  frequen¬ 
cies.  Also,  the  variation  appears  to  be  highly  deterministic  in  nature; 
there  is  very  little  variation  over  the  first  half  of  the  pulsation  cycle 
and  a  large  variation  over  the  second  half.  The  variation  is  so  highly 
nonlinear  that  the  second  harmonic  contains  over  50%  more  the  energy  of  the 
first.  This  same  behavior  was  noted  by  Mao  and  Hanratty  (1986)  in  their 
high  data  taken  in  an  eight  inch  pipe.  At  present  no  explanation  exists 

for  this  behavior  at  high  . 

The  amplitude  of  the  variation  of  the  wall  shear  stress  is  plotted  in 
Figure  5.45  as  a  function  of  <o+  along  with  the  data  of  Mao  and  Hanratty 
(1986)  and  Ramaprian  and  Tu  (1983).  The  amplitude  is  normalized  with  the 
amplitude  of  the  centerline  velocity  as  suggested  by  the  quasi-laminar 
solution.  The  data  at  low  w+  have  a  normalized  amplitude  of  about  0.085. 
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Figure  5.45  Amplitude  of  the  wall  shear  stress. 
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The  data  go  through  a  minimum  at  about  =  0.01  and,  then,  increase  as  a)+ 
is  increased.  The  solid  line  in  Figure  5.45  was  generated  from  the  quasi- 
laminar  solution,  (3.74).  It  is  observed  that  the  data  at  high  o)+  agree 
well  with  the  quasi  -laminar  solution.  However,  the  data  at  high  of  Mao 
and  Hanratty  show  a  lower  amplitude  than  the  quasi-laminar  solution  would 
suggest.  The  reason  for  this  disagreement  is  not  known.  The  dashed  line 
in  Figure  5.45  was  generated  from  the  empirical  quasi-steady  relation, 
(3.77),  using  a  Reynolds  number  of  45,000.  Since  the  dependence  of  this 
relation  on  Reynolds  number  is  not  very  great,  it  is  not  important  which 
Reynolds  number  was  chosen.  Even  though  this  relationship  should  only  be 
valid  for  values  much  lower  than  those  studied  here,  good  agreement  with 
the  data  is  observed. 

The  variation  of  the  phase  of  the  wall  shear  stress  with  is  shown  in 
Figure  5.46  along  with  the  data  of  Mao  and  Hanratty  (1986)  and  Ramaprian 
and  Tu  (1983).  Very  good  agreement  with  their  data  is  observed.  At  low 
values  the  phase  lag  is  about  -85  degrees  and  at  high  w*  values  the  phase 
lag  is  equal  to  -45  in  agreement  with  the  quasi-laminar  solution.  Mao  and 
Hanratty  attribute  the  dramatic  increase  in  the  phase  of  the  wall  shear 
stress  at  about  =  0.01  to  a  relaxation  effect  whereby  the  turbulence 
goes  from  a  state  of  equilibrium  with  the  imposed  pressure  gradient  to  one 
where  the  turbulence  is  no  longer  able  to  respond  to  the  rapidly  changing 
pressure  gradient.  The  agreement  between  the  two  sets  of  data  in  this 
region  is  remarkable  considering  that  their  data  were  taken  in  an  eight  inch 
pipe  and  the  data  in  this  study  were  taken  in  a  two  inch  pipe.  This 
agreement  is  strong  support  for  using  as  the  parameter  to  describe  the 
variation  of  the  wall  shear  stress  data. 

The  variation  of  the  amplitude  of  the  intensities  with  is  plotted  in 
Figure  5.47.  The  data  of  Mao  (1984)  is  also  included  in  the  figure.  At 
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Figure  5.46  Phase  lag  (relative  to  the  pressure  gradient)  of  the  wall  shear  stress. 
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Figure  5.47  Amplitude  of  the  wall  shear  stress  intensity. 
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low  0)f  values  the  amplitude  Increases  as  <o+  increases.  This  behavior  Is 
what  would  be  expected  if  the  turbulence  was  In  equilibrium  with  the  time 
varying  pressure  gradient.  The  variation  is  relatively  large  considering 
that  the  amplitude  of  the  imposed  pressure  gradient  is  only  about  0.004. 
This  is  about  one-sixth  the  pressure  gradient  found  in  constant  pressure 
gradient  flows  to  cause  relaminarization .  The  amplitude  is  observed  to  go 
through  a  peak  at  about  w+  =  0.003  and  to  decrease  to  zero  at  =  0.03. 
This  attenuation  is  what  is  expected  if  the  imposed  pressure  gradient  is 
varying  so  fast  that  the  turbulence  no  longer  can  respond  instantaneously. 
In  the  quasi-  laminar  region,  where  the  turbulence  cannot  respond  at  all  and 
is  "frozen",  the  amplitude  of  the  variation  should  be  zero.  This  is 
observed  in  the  data  for  <y+  values  around  0.03.  However,  at  higher  w+ 
values  the  amplitude  increases  dramatically.  The  data  of  Mao  (1984)  shows 
the  same  trend.  This  agreement  between  the  two  sets  of  data  taken  in  two 
different  flow  loops  indicates  that  this  nonlinear  variation  cannot  be 
attributed  to  some  peculiarity  of  the  apparatus  such  as  a  resonance 
phenomena . 

The  variation  of  the  phase  of  the  intensity  with  a>+  is  shown  in  Figure 
5.48.  At  low  <o+  values  the  phase  of  the  intensity  lags  the  imposed 
pressure  gradient  by  90  degrees.  As  explained  earlier,  this  is  consistent 
with  the  turbulence  being  in  "equilibrium"  with  the  imposed  pressure 
gradient.  The  phase  lag  increases  as  to+  increases  till  at  the  high  a+ 
extreme  of  0.0915  the  phase  lag  is  equal  to  -354  degrees.  Thus,  the 
turbulence  is  in  phase  with  an  unfavorable  pressure  gradient.  This  result 
lends  support  to  the  belief  that  at  high  <u+  the  turbulence  does  not  respond 
immediately  to  the  imposed  pressure  gradient. 

Due  to  difficulty  in  reading  the  symbols  in  their  figures,  the  data  of 
Binder  et.  al .  (1985)  are  not  included  in  Figures  5.45  through  5.48. 
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Figure  5.48  Phase  lag  (relative  to  the  pressure  gradient)  of  the  wall  shear  stress 
intensity. 
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However,  It  Is  observed  that  their  data,  which  extends  up  to  <o+  s  0.02,  Is 
In  qualitative  agreement  with  the  data  obtained  in  this  study. 

It  is  desired  to  obtain  quantitative  information  about  the  variation  of 
/t0+  from  measurements  of  the  phase  averaged  Ruz+.  If  the  <*0+  =  100  eddy 
was  the  only  eddy  present  in  the  flow  close  to  the  wall,  the  Rnz+  curve 
would  go  through  a  zero  crossing  at  z+  =  25,  a  minimum  of  -1  at  z+  =  50  and 
a  maximum  of  1  at  z+  =  100.  However,  the  presence  of  a  wide  spectrum  of 
wavenumbers  with  various  phases  changes  the  correlation  coefficient  curve 
such  that  the  zero  crossing  occurs  at  about  z+  =  37  and  the  magnitudes  of 
the  minimum  and  maximum  are  much  smaller  than  1.  A  typical  Rjiz+  curve  is 
shown  in  Figure  5.17.  Experimental  measurements  indicate  that  the  Taylor 
microscale  is  related  to  ^0+  by  (3.31).  At  small  separation  distances,  the 
Taylor  microscale  can  be  determined  from  the  following  [Hinze  (1975)]: 


where  ylf*  is  the  Taylor  microscale.  Thus,  (5.7)  and  (3.31)  can  be  used  to 
estimate  /lo+  from  measurements  of  the  correlation  coefficient  curve. 

The  correct:  correlation  coefficient  curve  to  determine  ;0+  is  the 
transverse  correlation  coefficient  of  the  transverse  velocity  gradient  at 
the  wall,  R33Z f,  curve.  However,  measurements  of  R33Z+  at  small  separation 
distances  are  very  difficult  to  make  since  relatively  large  V-shaped 
wall  probes  must  be  used.  An  alternate  method  of  measurement  is  suggested 
by  the  model  first  proposed  by  Sirkar  and  Hanratty  (1970)  for  flow  in  the 
viscous  wall  region.  Their  idealized  flow  is  shown  in  Figure  2.1.  Lee, 
Eckelman ,  and  Hanratty  (1974)  verified  the  existence  of  this  secondary  flow 
pattern  by  simultaneously  measuring  sx  and  sz  at  a  number  of  locations  at 
the  wall.  In  particular,  they  found  that  the  sz  sinusoidal  variation  in 
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the  transverse  direction  is  accompanied  by  a  spatial  variation  of  sx  that 
is  7r/4  out  of  phase.  Tills  is  shown  in  Figures  2.1b  and  2.1c, 

If  this  idealized  structure  is  correct,  the  correlation  coefficient 
curves  of  the  streamwise  and  transverse  velocity  fluctuations  at  the  wall 
should  be  the  same.  Finnicum  and  Hanratty  (1985)  have  shown  this  to  be  the 
case.  Therefore,  the  transverse  Taylor  microscale  can  be  determined  from 
measurements  of  the  streamwise  Taylor  microscale.  These  measurements  are 
easier  to  perform  since  small  circular  electrodes,  such  as  the  ones  used  in 
this  study,  can  be  fabricated  at  small  enough  distances  so  as  to  accurately 
determine 

In  order  to  obtain  as  wide  a  range  of  u>+  values  as  possible  the 
Reynolds  number  of  the  flow  was  varied  from  8,650  to  44,900.  Unfortu¬ 
nately,  the  separation  distance  in  wall  variables  between  electrodes  was 
too  large  at  the  higher  Reynolds  numbers  to  use  (5.7).  At  the  lower 
Reynolds  numbers,  the  measured  Rn7,+  curve  is  too  short  to  use  the  maximum 
or  minimum  of  the  curve  to  determine  ^0+-  Therefore,  since  it  could  be 
determined  accurately  for  all  the  runs,  it  was  decided  to  use  the  location 
of  the  zero  crossing  to  determine  /10  +  - 

The  following  relationship  was  used  to  fit  the  correlation  coefficient 
curve , 


Rllz+  =  exP 


V; 

z  + 

2 

' n 

*0  + 

z  + 

^0+. 

cos 

2 

^zero 

V. 

(5.8) 


where  =  100,  %zero  Is  lhe  location  of  the  zero  crossing,  and  is 
a  constant  for  each  run.  At  small  distances,  (5.8)  reduces  to  (5.7)  and 
+  is  related  to  the  time  averaged  Taylor  microscale  by 
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Both  constants,  Cj4  and  Zzer 0,  are  determined  by  fitting  (5.9)  to  the 
time  averaged  Rllz  +  data  run.  The  Rllz+  data  are  then  fit  at  each  phase  to 
determine  the  phase  averaged  /*0+.  A  nonlinear  least  squares  regression 
routine  is  used  to  determine  the  best  match  to  the  data.  The  phase 
averaged  are  fit  with  a  three-harmonic  cosine  function  to  determine  the 
amplitude  and  phase  of  the  first  harmonic. 

The  time  averaged  Rj^zf  data  for  all  the  runs  are  shown  in  Figure 
5.49.  An  averaged  Taylor  microscale  equal  to  18.3  was  determined  by  fitting 
all  the  data  points  with  values  greater  than  0.9  to  (5.7).  Fitting  (5.8) 
to  data  points  with  values  greater  than  zero  gave  values  of  18.6  and  35.1 
for  i'f*  and  Zzero,  respectively.  Curves  using  these  values  are  plotted 
in  Figure  5.49.  Ae  expected,  (5.8)  reduces  to  (5.7)  at  low  separation 
distances.  The  power  of  two  in  the  exponential  term  was  necessary  to 
obtain  the  correct  curvature  at  low  z+  values.  However,  this  dependence 
forces  (5.8)  to  dampen  rapidly  near  the  zero  crossing  point  and  a  good  fit 
to  the  data  at  zf  values  greater  than  Zzero  is  not  possible.  Powers  of  1 
and  1.5  did  a  better  job  of  fitting  the  data  in  this  region;  however,  since 
it  was  desired  to  resolve  the  Taylor  microscale,  a  power  of  two  is  neces¬ 
sary  in  (5.8) . 

The  streak  spacing  is  used  in  (5.8)  instead  of  the  Taylor  microscale  to 
describe  the  variation  of  the  correlation  coefficient  curve.  Relation 
(3.31)  enables  this  substitution  to  be  made.  Therefore,  a  check  on  its 
validity  is  appropriate.  Using  =  100  and  (3.31),  -  15.9.  This 

value  is  in  good  agreement  with  the  experimental  value  of  18.3.  Finnicum 
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Figure  5.49  Determination  of  the  time  averaged  Taylor  microscale 
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and  Hanratty  (1985)  showed  that  is  equal  to  17  ±  1.4  In  normal  pipe 

flow.  (Note:  They  report  ^T+  to  be  equal  to  12  ±  1.  However,  their 
definition  of  ^T+  differs  from  the  one  in  this  thesis  by  (2)*.)  It  is 
noted  that  both  the  experimental  value  and  the  value  estimated  from  (3.31) 
are  in  good  agreement  with  their  reported  values  for  /1T+  . 

The  method  for  determining  the  phase  averaged  ^0+  is  illustrated  in 
Figure  5.50  for  the  u)+  =  0.0012  run.  The  circles  represent  the  time 
averaged  Rllzf  data.  Also  shown  are  the  Rnz+  data  points  corresponding  to 
the  maximum  and  minimum  ^o+  of  the  32  values  obtained  from  the  phase 
averaged  R j j .  These  data  are  represented  by  the  squares  and  triangles, 
respectively.  For  this  run,  =  24.1,  Xp+  =  19.1,  and  Zzero+  =  35. 

The  dashed  line  is  generated  from  (5.9)  using  -lo+  =  110.7  and  the  dotted 
line  is  generated  using  <I0+  =  90.3.  These  values  were  determined  from  a 
nonlinear  least  square  fit  to  the  experimental  data.  Qualitatively,  it  is 
observed  that  the  minimum  in  the  curves  agrees  with  these  results. 

However,  as  seen  in  Figure  5.50,  small  errors  in  the  Rllz+  values  can  cause 
large  errors  in  the  estimation  of  -10+  because  of  the  flatness  of  the  curve 
in  the  area  of  the  minimum. 

The  phase  average  A0+  values  determined  using  (5.9)  are  shown  in 
Figures  5.51  through  5.67.  The  phase  average  favorable  pressure  gradient, 
wall  shear  stress,  and  intensity  of  the  turbulent  fluctuations  of  the  wall 
shear  stress  are  also  included  as  references.  The  variation  of  /*o+  with  w+ 
is  seen  to  be  very  similar  to  that  of  r^1.  For  low  a>+  values,  the 
variation  is  linear,  while,  at  high  o»+  values  the  variation  is  highly 
nonlinear.  At  low  o>+  values,  the  variation  of  an^  Tw  are  degrees 
out  of  phase  with  each  other.  As  a>+  increases,  the  difference  in  phase 
increases,  till,  at  <o+  =  0.0915,  it  is  roughly  280  degrees  out  of  phase. 
Particularly  interesting  are  the  results  shown  in  Figures  64  and  Figure  65. 
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Figure  5.50  Determination  of  the  variation  of  the  streak  spacing. 
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Figure  5.51  Phase  averaged  streak  spacing  at  Re  =  44,900, 
f  =  0.25  Hz,  =  0.0012  and  a  =  0.1 
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Figure  5.52  Phase  averaged  streak  spacing  at  Re  =  23,700, 
f  =  0.20  Hz,  u+  =  0.0021  and  a  =  0.1 
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Figure  5.53  Phase  averaged  streak  spacing  at  Re  =  25,200, 
f  =  0 .AO  Hz,  or  =  0.00375  and  a  =  0.1 
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Figure  5.54  Phase  averaged  streak  spacing  at  Re  =  20,100, 
f  =  0.30  Hz,  (j+  =  0.0042  and  a  =  0.101 
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Figure  5.55  Phase  averaged  streak  spacing  at  Re  =  21,400, 
f  =  0.60  Hz,  CJ1'  =  0.0075  and  a  =  0.099 
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Figure  5.56  Phase  averaged  streak  spacing  at  Re  =  17,100, 
f  =  0.50  Hz,o/+  =  0.0093  and  a  =0.102 
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Figure  5.57  Phase  averaged  streak  spacing  at  Re  -  17,900, 
f  =  1.00  Hz,  (j+  =  0.0172  and  a  =  0.098 
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Figure  5.58  Phase  averaged  streak  spacing  at  Re  =  10,700, 
f  =  0.50  Hz,  uA  =  0.021  and  a  =  0.102 


1  7  3 


(d) PHASE 


Figure  5.59  Phase  averaged,  streak  spacing  at  Re  =  15,300, 
f  =  1.00  Hz,  o»+  =  0.0225  and  a  =  0.099 
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Figure  5.60  Phase  averaged  streak  spacing  at  Re  =  14,600, 
f  =  1.00  Hz,  (j+  =  0.0244  and  a  =  0.098 
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Figure  5.61  Phase  averaged  streak  spacing  at  Re  =  14,200, 
f  =  1.00  Hz,  Ct/+  =  0.0258  and  a  =  0.101 
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Figure  5.62  Phase  averaged  streak  spacing  at  Re  =  10,300, 
f  =  0.60  Hz,  co+  =  0.0270  and  a  =  0.101 
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Figure  5.63 


Phase  averaged  streak  spacing  at  Re  8,750, 
f  =  0.60  Hz,  U+  =  0.0360  and  a  =  0.099 
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Figure  5.64  Phase  averaged  streak  spacing  at  Re  =  11,400, 
f  =  1.00  Hz,  (j+  =  0.0375  and  a  =  0.098 
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Phase  averaged  streak  spacing  at  Re  =  9,200, 
f  =  1.00  Hz,  (J+  =  0.0550  and  a  =  0.100 


Figure  5.65 
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Figure  5.66  Phase  averaged  streak  spacing  at  Re  =  10,300, 
f  =  1.50  Hz,  u+  =  0.0675  and  a  0.101 
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Figure  5.67 


Phase  averaged  streak  spacing  at  Re  =  8,650, 
f  =  1.50  Hz,  u+  =  0.0915  and  a  =  0.100 
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At  <y+  =  0.0375,  the  highly  nonlinear  behavior  Is  observed  only  in  the  rj' 
measurements.  At  a>+  =  0.055,  the  nonlinear  behavior  is  observed  in  both 
quantities.  Thus,  it  appears  that  the  nonlinear  behavior  in  A0+  starts  at 
slightly  higher  ai+  values  than  for  .  The  reason  for  this  is  not  known. 

The  "equilibrium"  arguments  used  to  describe  the  variation  of  rw+l  with 
the  imposed  pressure  gradient  can  also  be  used  to  explain  the  measured  /10+ 
variation.  If  the  imposed  pulsation  is  low  enough  in  frequency,  the 
variation  of  the  shear  stress  at  the  wall  will  be  of  the  same  order  of 
magnitude  and,  roughly,  in  phase  with  the  shear  stress  variation  at  the 
outer  edge  of  the  viscous  wall  region.  Therefore,  for  this  type  of  flow 
(3.33)  is  approximately  equal  to  the  following: 


</*o+> 


100 

(<rw+>)^ 


(5.10) 


Relation  (5.10)  predicts  that  the  phase  of  -10+  will  be  roughly  180  degrees 
out  of  phase  with  the  variation  of  the  wall  shear  stress.  It  is  seen  from 
Figure  5.51  that  this  is  the  case.  Relation  (5.10)  can  also  be  used  to 
estimate  the  variation  of  A0+  from  the  variation  of  the  wall  shear  stress. 
The  results  of  doing  this  with  the  wall  shear  stress  data  at  at+  =  0.0012 
are  compared  to  the  experimentally  measured  A.0+  values  in  Figure  5.68.  The 
calculated  values  slightly  lead  the  measured  values,  but  otherwise  excel¬ 
lent  agreement  is  observed.  Therefore,  it  is  concluded  that  the  variation 
of  <10+  at  low  frequency  can  be  described  by  the  scaling  arguments  and 
concepts  developed  in  Section  3.I.C  for  constant  pressure  gradients. 

The  variation  of  the  streak  spacing  with  is  plotted  in  Figure  5.69. 
At  low  w+  values,  the  amplitude  of  the  variation  is  about  10%  with  a  peak 
occurring  at  w+  =  0.03.  This  is  the  same  <o+  value  that  the  peak  occurs  in 
the  amplitude  variation  of  r^'.  Figure  5.70  shows  the  variation  of  the 
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Figure  5.68  Estimation  of  the  phase  averaged  streak  spacing  using  the 
constant  pressure  gradient  scaling  arguments 
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Figure  5.69  Amplitude  of  the  variation  of  the  streak  spacing. 
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Figure  5.70  Phase  (relative  to  the  pressure  gradient)  of  the  streak  spacing. 
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phase  of  the  streak  spacing  with  a>+ .  At  low  w+  values  the  phase  of  the 
streak  spacing  leads  the  imposed  favorable  pressure  gradient  by  85  degrees. 
The  phase  lead  becomes  a  phase  lag  as  Increases  till  at  the  high  w+ 
extreme  of  0.0915  the  phase  lag  is  equal  to  -40  degrees.  Since  the 
variation  of  the  streak  spacing  is  very  similar  to  the  variation  of  the 
intensity  at  the  wall,  the  comments  made  earlier  about  also  apply  to 

the  variation  of  the  streak  spacing. 

B.  Empirical  Model  Results 

The  experimental  wall  shear  stress  data  are  compared  to  results 
obtained  from  the  empirical  eddy  viscosity  models  discussed  in  Chapter  3. 
Calculations  at  Reynolds  numbers  of  20,000  and  50,000  were  done  in  order  to 
estimate  the  a>+  value  at  which  the  wall  shear  stress,  when  normalized  with 
the  amplitude  of  the  centerline  variation,  is  no  longer  independent  of 
Reynolds  number. 

The  amplitude  results  are  compared  to  the  experimental  data  in  Figure 
5.71.  The  top  plot  shows  the  results  for  the  Model  C  calculation  and  the 
bottom  plot  shows  the  results  for  Model  D.  The  quasi- steady  model  (Model 
C)  agrees  with  the  data  at  high  and  low  ai+  values,  but  it  does  not  predict 
the  minimum  at  cw+  =  0.01.  However,  the  relaxation  model  (Model  D)  using  kj 
=  -25  and  kr  =  3500  predicts  the  data  very  well.  These  values  for  the 
constants  are  the  same  as  those  found  by  Mao  and  Hanratty  (1986)  to  describe 
their  data.  The  results  are  seen  to  start  to  depend  upon  Reynolds  number 

at  a»+  values  less  than  about  0.005. 

Figure  5.72  shows  the  calculation  results  for  the  phases  of  the  wall 
shear  stress  variation.  The  quasi-steady  model  is  unable  to  predict  the 
sharp  rise  in  phase  angle  at  (o+  =  0.02.  Model  D  accurately  describes  this 
rise,  but  also  exhibits  a  small  under  and  over  shooting  of  the  data  at  low 
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Figure  5.71  Comparison  of  the  phase  averaged  wall  shear  stress 
data  with  Model  C  and  Model  D  (amplitude  results). 
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Figure  5.72  Comparison  of  the  phase  averaged  wall  shear  stress 
data  with  Model  C  and  Model  D  (phase  results). 


18  9 


and  high  a>+  values,  respectively.  Model  D  introduces  an  effective 
pressure  gradient  that  is  lower  in  amplitude  and  lags  in  phase  relative  to 
the  imposed  pressure  gradient.  Figure  5.73  shows  the  amplitude  and  phase 
of  the  effective  pressure  gradient  for  kr  =  3500.  The  amplitude  is 
observed  to  decrease  rapidly  as  w+  increases.  It  is  seen  that  in  the 
region  of  the  experimental  data,  the  amplitude  is  less  than  10%  of  the 
imposed  pressure  gradient.  The  phase  lag  increases  dramatically  as  <o+ 
increases,  till,  at  o>  >  0.001,  it  is  roughly  -90  degrees.  Thus,  it  appears 
that  a  model  such  as  Model  D,  which  introduces  a  lag  between  the  imposed 
pressure  gradient  and  the  change  of  scale  in  the  viscous  wall  region,  is 
needed  to  adequately  describe  the  relaxation  phenomena  observed  in  pulsat¬ 
ing  pipe  flow.  The  phase  results  are  observed  to  begin  to  depend  upon  the 
Reynolds  number  at  to*  values  less  than  0.01.  This  value  is  slightly  higher 
than  the  one  observed  in  the  amplitude  results. 

The  results  of  the  constant  pressure  gradient  part  of  this  thesis 
indicate  that  the  important  hydrodynamic  quantity  for  an  equilibrium  flow 
is  the  shear  stress  at  the  outer  edge  of  the  viscous  wall  region  and  not 
the  imposed  pressure  gradient.  Therefore,  the  calculated  <r0+>  can  be  used 
to  estimate  the  variation  of  ^o+-  The  shear  stress  at  the  edge  of  the 
viscous  wall  region  was  determined  from  the  empirically  calculated  shear 
stress  profiles  in  the  following  manner:  The  location  of  yo+  in  the  flow 
was  determined  by  the  distance  away  from  the  wall  at  which  the  ratio  of  the 
viscous  shear  stress  to  the  total  shear  stress  is  equal  to  0.025.  This  is 
the  same  criterion  as  (3.26).  The  shear  stress  at  this  distance  is  equal 
to  r0+  and,  is  determined  from  (3.34).  The  results  for  Models  C  and  D 

at  a  Re  =  50,000  are  compared  to  the  experimental  data  in  Figure  5.74. 
Excellent  agreement  with  the  data  are  observed  for  ft>+  s  0.005.  This 
implies  that  "equilibrium"  exists  up  to  w+  =  0.005.  From  Figure  5.74,  it 
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Figure  5.73  Normalized  amplitude  and  phase  lag  (relative  to  the  imposed 
pressure  gradient)  of  the  effective  presssure  gradient 
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Figure  5.74  Comparison  of  the  streak  spacing  experimental  data 
with  the  results  of  Model  C  and  Model  D. 
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appears  that  Model  C  reproduces  the  data  better  than  Model  D  at  high  a>+ . 
However,  this  is  misleading  since  the  scaling  arguments  used  to  generate 
the  /l0*  values  are  only  valid  for  the  situation  where  there  is  equilibrium 
between  the  turbulence  and  the  imposed  pressure  gradient. 

The  amplitude  of  the  pressure  gradient  that  is  needed  to  generate  a  10% 
variation  in  the  centerline  velocity  is  determined  from  the  plug  flow 
relation,  (3.70).  However,  at  low  a>+  values  the  pulsating  velocity 
gradient  changes  all  the  way  to  the  center  of  the  pipe  and  (3.70)  is  no 
longer  valid.  At  this  point,  an  iterative  method  is  used  in  the  calcula¬ 
tions  to  determine  the  necessary  pressure  gradient  to  obtain  a  10%  center- 
line  variation.  Figure  5.75  illustrates  the  «t+  value  at  which  the  plug 
flow  assumption  breaks  down.  Any  deviation  greater  than  0.1  in  the 
amplitude  plot  indicates  that  a  plug  flow  no  longer  exists  in  the  center  of 
the  pipe.  Also,  any  deviation  from  a  phase  of  -90  degrees  has  the  same 
meaning.  It  is  seen  from  Figure  5.75  that  both  quantities  begin  to  deviate 
from  the  plug  flow  relation  at  about  0.005.  The  wall  shear  stress  results 
shown  in  Figures  5.72  and  5.73  also  become  dependent  on  Reynolds  number  at 
about  this  value.  Binder  et.  al .  (1985)  suggests  a  Reynolds  number 
dependence  when  the  Stokes  layer  thickness,  <5S+,  is  greater  than  20.  This 
value  corresponds  to  <o+  =  0.005.  Good  agreement  is  observed  for  the  two 
estimates.  Thus,  the  pulsating  wall  shear  stress  is  shown  to  depend  upon 
Reynolds  number  when  the  plug  flow  condition  at  the  center  of  the  pipe 
disappears . 

A  Reynolds  number  effect  is  observed  in  the  deviation  from  plug  flow  in 
Figure  5.75.  Lower  Reynolds  numbers  give  higher  magnitudes  of  deviation. 
The  deviation  for  Re  =  20,000  at  =  0.001  is  about  10%,  while  for  Re  = 
50,000  the  deviation  is  less  than  5%.  This  result  has  implications  for  the 
experimental  data  since  a  plug  flow  was  assumed  to  exist  in  the  center  of 
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Figure  5.75  Breakdown  of  the  assumption  of  plug  flow  in  the 
center  of  the  pipe. 
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the  pipe.  At  a>+  <  0.005,  this  assumption  has  been  shown  to  be  incorrect. 
However,  since  most  of  the  data  points  at  <o+  values  less  than  0.005  were 
taken  at  Reynolds  numbers  between  30.000  and  45.000,  the  error  in  using  the 
plug  flow  assumption  is  believed  to  be  less  than  5%. 
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CHAPTER  6.  DISCUSSION 

In  this  chapter  the  results  of  the  constant  and  pulsating  pressure 
gradient  investigations  are  discussed. 

I •  Constant  Pressure  Gradient  Turbulent  Flows 

This  section  is  composed  of  two  parts.  The  first  section  deals  with  the 
phenomena  of  relaminarization  and  the  second  describes  some  uses  for  the 
scaling  arguments  presented  in  Chapter  3. 

A.  Relaminarization 

Arguments  are  presented  that  show  the  minimum  In  the  Peo+  curve,  which 
occurs  at  Peo+  =  -0.00962,  corresponds  to  the  point  of  imminent 
relaminarization  of  a  turbulent  boundary  layer.  It  is  suggested  that  the 
logarithmic  region  disappears  at  this  Peoh  value.  The  results  of  the 
computer  simulation  using  Peo+  =  -0.00962  are  found  to  give  good  agreement 
with  the  literature.  The  calculated  results  indicate  that  the  net 
production  of  turbulent  kinetic  energy  in  the  viscous  wall  region  scaled 
with  wall  parameters  stays  roughly  constant  up  to  the  point  of  relaminar¬ 
ization.  Using  some  of  the  scaling  arguments  presented  in  Chapter  3,  the 
net  production  of  turbulent  kinetic  energy  in  the  viscous  wall  region  is 
shown  to  decrease  after  the  logarithmic  region  disappears.  This  decrease 
leads  to  the  eventual  relaminarization  of  the  flow. 

1 .  Criterion  for  Relaminarization 

In  this  section,  the  maximum  eddy  Reynolds  number  criterion  of  Bradshaw 
(1969)  is  shown  to  be  consistent  with  the  scaling  arguments,  presented  in 
Chapter  3,  that  indicate  relaminarization  occurs  at  the  minimum  Peo+. 

The  disappearance  of  the  logarithmic  region  is  adopted  as  the  criterion  for 


the  start  of  relaminarization. 
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There  is  considerable  disagreement  in  the  literature  on  the  precise 
criteria  or  parameter  for  determining  the  point  of  relaminarization  in 
accelerated  turbulent  flows.  Table  6.1  lists  some  parameters  relevant  to 
this  study  and  their  estimated  values  found  in  the  literature. 


Table  6.1 

Some  Proposed  Criteria  for  Relaminarization 
Parameter  Range  of  Values  Researchers 


K 


v  dUco 
Uoc2  dx 


P+ 


v  dP 

*T  , 
jou  dx 

v  dr 
pu  dy 


2.5X10"6  >  K  >  3 . 5xl0-6 


Launder  (1963,  1964) 

Kline  et.  al.  (1967) 

Moretti  &  Kays  (1965) 

Launder  &  Stinchcombe  (1967) 
Back  &  Seban  (1967) 

Loyd  et .  al .  ( 1970) 

Jones  &  Launder  (1972) 


Patel  (1965) 

Launder  &  Stinchcombe  (1967) 
-0.02  >  P+  £  -0.025  Badri  Narayanan  &  Ramjee  (1969) 

Loyd  et.  al.  (1970) 

Jones  &  Launder  (1972) 

At+  =  -0.009  Patel  &  Head  (1968) 


Several  researchers  [Preston  (1958),  Patel  (1965),  Bradshaw  (1969)  and, 
Okamoto  and  Misu  (1977)]  also  suggest  that  relaminarization  occurs  when  the 
logarithmic  region  disappears.  The  logarithmic  region  serves  as  a  buffer 
between  the  energy  producing  region  (viscous  wall  region)  and  the  energy 
dissipating  region  (core).  It  is  assumed  that  relaminarization  occurs 
when  these  two  regions  overlap  and  the  turbulent  flow  becomes  directly 
dependent  on  viscosity.  Bradshaw  (1969)  suggests  that  appreciable  overlap 
of  these  two  regions  will  occur  below  some  critical  value  of  the  "eddy 
Reynolds  number",  (r/p)^L/v,  where  L  is  equal  to  the  dissipation  length 
parameter  defined  as  (z7p)3/2/e.  In  the  logarithmic  region,  where 
production  is  equal  to  dissipation,  L  =  xy.  This  eddy  Reynolds  number  may 
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be  thought  of  as  the  ratio  of  the  energy-containing  to  energy-dissipating 
length  scales.  Bradshaw  argues  that  when  this  ratio  is  less  than  unity 
everywhere  in  the  flow  ,  the  two  different  regions  overlap  (the  logarithmic 
region  no  longer  exists)  and  relaminarization  will  occur. 

In  a  zero  pressure  gradient  flow  the  maximum  eddy  Reynolds  number 
occurs  at  the  outer  edge  of  the  logarithmic  region  where  y  =  0.2  <5. 
Relaminar ization  of  this  type  of  flow  occurs  when  the  boundary  layer 
Reynolds  number  decreases  below  a  certain  value  and  the  outer  edge  of  the 
viscous  wall  region  is  located  at  y  =  0.2  <5.  For  flows  with  large 
favorable  pressure  gradients  r(y)  decreases  with  y  so  the  maximum  value  of 
the  eddy  Reynolds  number  occurs  somewhere  within  the  logarithmic  region. 
According  to  Bradshaw's  criterion,  the  maximum  will  be  at  the  edge  of  the 
viscous  wall  region  when  relaminarization  occurs.  Comparing  the  definition 
of  the  edge  of  the  viscous  wall  region,  (3.27),  and  the  definition  of  the 
eddy  Reynolds  number,  the  critical  maximum  eddy  Reynolds  number  is  found  to 
be  equal  to  /cy0°.  Thus,  Bradshaw's  the  criterion  for  relaminarization, 
which  is  assumed  to  be  universal  for  all  flows,  is  the  following: 


(r/p)^  k y 
v 


max 


o 

KVo 


(6.1) 


For  cases  for  which  the  maximum  occurs  within  the  logarithmic  region 
(large  favorable  pressure  gradients),  the  derivative  of  the  eddy  Reynolds 
number  with  respect  to  y  is  equal  to  zero  at  the  maximum.  Therefore,  in 
wall  units 


dr’1'  y  + 
dy1"  2 


0  . 


(6.2) 


By  substituting  in  (3.14)  for  r+ ,  the  following  criterion  is  obtained  for 
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y4  to  be  at  the  maximum: 


ymax+ 


PP+ 


-1 


+ 


1  dr'1' 

2  dy  + 


(6.3) 


Since  relaminarization  occurs  when  ymax+  =  yo  +  .  Pe  =  peo+>  anc*  T+  =  ro4 • 
Equation  (3.50)  can  be  used  in  (6.3)  to  get  the  following  condition  for 
relaminarization: 


dr4 |  =  _2  (y0°) 2 

dy+j0  (yo+)3 


(6.4) 


Figure  6.1  gives  (dr+/dy4)0,  y0+  values  for  which  relaminarization  can  occur 
according  to  Bradshaw's  criterion.  However,  not  all  of  these  are  realiz¬ 
able.  It  can  easily  shown  from  (6.3)  and  (6.4)  that  the  two  curves  in 
Figure  6.1  cross  at 

y0+  =  (3)%  y0°  (6-5) 


It  is  seen  that  (6.5)  is  satisfied  at  the  minimum  in  Peo4,  Peof  = 
(drf/dyf)0  =  -0.00962,  which  is  in  good  agreement  with  the  value  of  -0.009 
obtained  by  Patel  and  Head  in  their  experiments. 

Bradshaw  also  obtained  (dt4/dy4)c  =  -0.00962,  by  assuming  a  linear 
shear  stress  variation  in  the  viscous  wall  region.  In  general  such  an 
assumption  is  not  valid  physically.  It  appears  that  this  assumption  of 
Bradshaw  is  equivalent  to  assuming  (dr+/dy+)0  *  Peo  +  at  the  edge  of  the 
viscous  wall  region.  From  the  above  considerations,  this  can  be  satisfied 
if  Peo+  is  a  minimum. 

Relation  (3.15)  evaluated  at  y0+  gives  the  following  definition  for 

P  f  • 
reo  • 
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Variation  of  Peo+  and  (dr+/dy*)0 
viscous  wall  region 


Figure  6.1 


with  the  edge  of  the 


2  0  0 


p+ 

[i  -  L*  | 

(y°+U+2  dy+ 

2  yo  J 

lo 

As  discussed  in  Section  3.E.3  and  shown  in  Figure  3.3,  Cf/2  is  a  constant 
for  moderate  and  large  favorable  pressure  gradients.  Therefore,  only  if 
the  mean  velocity  profile  increases  faster  than  P+  decreases  will  a  minimum 
occur.  This  result  agrees  with  the  study  of  Patel  and  Head  (1968)  that 
showed  that  a  rapid  increase  in  the  mean  velocity  profile  is  a  sign  of 
imminent  relaminarization  of  the  flow  Thus,  on  a  physical  basis  it 
appears  that  the  minimum  in  the  Peo+  curve  corresponds  closely  to  the 
beginning  of  relaminarization. 

Bradshaw's  maximum  eddy  Reynolds  number  criterion  for  relaminarization 
is,  thus,  consistent  with  the  scaling  arguments  developed  in  this  study 
that  indicates  relaminarization  to  occur  at  the  minimum  of  the  Peo+  curve. 

2.  Calculation  using  Peo+  =  -0.00962 

A  calculation  was  performed  using  the  scaling  parameters  corresponding 
to  incipient  relaminarization,  Peo+  =  -0.00962.  The  average  statistics  of 
this  run  are  discussed  in  Chapter  5.  Using  the  mean  velocity  profile 
from  the  run,  P+  was  determined  to  be  equal  to  -0.0225.  This  value  is  in 
the  middle  of  the  range  of  P+  values  found  experimentally  to  cause 
relaminarization  (see  Table  6.1).  Since  Cf/2  =  0.0025,  K  =  2.8x10“®.  Good 
agreement  with  the  literature  is  also  observed  for  this  parameter. 

Since  all  three  criteria  listed  in  Table  6.1  are  satisfied  by  the 
calculation  at  Peo+  =  -0.00962,  it  is  concluded  that  this  run  is  indeed 
representative  of  a  flow  about  to  relaminarize . 

Therefore,  a  closer  look  at  the  calculations  of  the  kinetic  energy  of 
the  fluctuating  velocities,  shown  in  Chapter  5,  in  order  to  understand 
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relaminar ization  Is  warranted.  Figure  6.2  shows  the  production  and 
dissipation  of  turbulent  kinetic  energy  normalized  with  wall  variables  in 
the  nonaccelerated  flow  and  in  the  incipient  relaminarization  flow.  The 
presence  of  a  large  favorable  pressure  gradient  dramatically  reduces  the 
magnitudes  of  these  terms  in  the  viscous  wall  region.  However,  the  two 
terms  are  reduced  equally  and  the  net  production  of  turbulent  kinetic 
energy  in  the  viscous  wall  region  remains  the  same.  This  is  shown  in 
Figure  6.2  by  the  solid  line  that  represents  the  integral  of  the  difference 
between  the  two  terms  as  a  function  of  y+ .  This  result  indicates  that  the 
dominate  structures  in  the  viscous  wall  region  change  in  size  and  intensity 
in  order  to  maintain  a  net  production  of  turbulent  kinetic  energy.  This  is 
consistent  with  the  numerical  results  of  Lyons  (1985)  which  show  that  in 
the  nonaccelerated  flow  the  dominant  wall  eddy  size  M0*  ®  100)  is  the  one 
for  which  the  net  production  of  turbulence  in  the  viscous  wall  region  is 
just  enough  to  supply  the  energy  dissipated  in  the  core  region  of  a  pipe  or 
channel.  Eddy  sizes  less  than  100  gave  a  net  dissipation  of  turbulent 
kinetic  energy  in  the  viscous  wall  region  and  sizes  larger  than  100 
produced  too  much  turbulent  kinetic  energy.  In  flows  with  favorable 
pressure  gradients,  the  change  in  shear  in  a  direction  perpendicular  to  the 
wall  causes  the  production  of  turbulent  kinetic  energy  to  decrease  for  a 
fixed  eddy  size.  Therefore,  in  order  to  maintain  a  net  production  of 
turbulent  kinetic  energy  in  the  viscous  wall  region,  the  wall  eddies 
(scaled  with  the  wall  shear  stress  and  the  kinetic  viscosity)  must  increase 
in  size,  which  decreases  the  amount  of  dissipation  in  the  viscous  wall 
region.  Thus,  it  appears  that,  as  long  as  a  logarithmic  region  exists,  the 
wall  eddies  will  respond  to  the  imposed  favorable  pressure  gradient  in  a 


manner  that  maintains  the  turbulence. 
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Figure  6.2  Effect  of  pressure  gradient  on  the  dissipation  and 
production  of  turbulent  kinetic  energy. 
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3 •  Sea i jng  Arguments  after  the  Logarithmic  Region  Disappears 

The  scaling  arguments  presented  in  Chapter  3,  that  are  used  to  derive 
(3.24)  and  (3.27),  are  no  longer  valid  once  the  flow  begins  to  relaminarize 
and  the  logarithmic  region  has  disappeared.  Unfortunately,  new  scaling 
arguments  could  not  be  derived  to  replace  them.  However,  some  qualitative 
information  about  why  relaminarization  will  occur  once  the  logarithmic 
region  has  disappeared  can  be  obtained  from  the  scaling  arguments. 

The  rate  of  dissipation  relation,  (3.21),  is  valid  for  any  flow  where 
there  exists  only  one  characteristic  length.  Thus,  (3.21)  is  a  valid 
relation  for  the  dissipation  even  if  production  and  dissipation  do  not 
balance  [Tennekes  and  Lumley  (1981)].  The  isotropic  rate  of  dissipation 
relation,  (3.29),  should  also  be  valid  in  a  flow  in  the  initial  state  of 
relaminarization.  Thus,  by  equating  the  two  relations  and  assuming  q0 
scales  as  r 0/p,  the  following  is  obtained: 


<*0  (r0/p)^ 
V 


M^o /p)% 


(6.7) 


where  Ci  is  a  constant.  In  a  flow  with  a  logarithmic  region,  fc0  =  *y 
and  (6.7)  becomes  equal  to  (3.32).  However,  after  the  logarithmic  region 
has  disappeared  the  mixing  length  at  the  edge  of  the  viscous  wall  region 
becomes  equal  c2<5,  where  <5  is  the  boundary  layer  thickness.  This  is  the 
mixing  length  relation  valid  for  the  core  region  of  a  nonaccelerated  flow. 
Thus,  after  relaminarization,  ^0°  (/l0  normalized  with  the  local  shear 
stress)  becomes  independent  of  the  location  of  the  edge  of  the  viscous  wall 
region.  As  discussed  earlier,  Lyons  (1985)  has  shown  that  smaller  eddy 
sizes  generate  more  dissipation  in  the  viscous  wall  region  than  larger 
sizes.  Therefore,  if  A0°  no  longer  increases  as  (y0°)^»  the  relative 
amount  of  dissipation  will  be  higher.  This  situation  generates  a  net 
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dissipation  of  turbulent  kinetic  energy  in  the  viscous  wall  region  and  the 
flow  reverts  back  to  a  laminar  state. 

B .  Uses  for  the  Scaling  Arguments 

The  location  of  y0+  for  different  levels  of  acceleration  is  a  very 
difficult  quantity  to  determine  experimentally.  Qualitatively  the  peak  in 
the  U  intensity  profile  is  observed  to  move  farther  from  the  wall  and  the 
extent  at  which  the  mean  velocity  profile  follows  the  viscous  sublayer 
equation,  U+  =  y+ ,  increases  with  acceleration.  Relation  (3.28)  suggests 
a  more  quantitative  method  of  determining  y0+  from  either  experimentally 
measured  shear  stress  profiles  or  from  shear  stress  profiles  generated  from 
mean  velocity  profiles  and  (3.13).  The  location  of  y0+  for  a  given 
acceleration  would  be  the  intersection  between  a  curve  generated  from 
(3.28)  and  the  shear  stress  profile.  This  is  illustrated  iri  Figure  6.3 
using  the  experimentally  determined  shear  stress  profiles  of  several 
researchers.  It  is  seen  that  the  location  of  the  intersection  of  the 
curves  increases  with  acceleration. 

The  mean  velocity  profile  data  of  Loyd  et.  al.  (1970)  corresponding  to 
K  =  2.55X10"6  was  still  changing  at  the  end  of  their  test  section.  This 
indicated  to  the  authors  that  the  flow  was  relaminarizing.  The  last  two 
measuring  station  profiles  are  shown  in  Figure  6.3.  As  expected  for  a  flow 
in  the  process  of  relaminarization,  the  location  of  y0+  increases  from  64 
to  70.  The  last  value  of  70  is  just  greater  than  the  value  of  69.28 
suggested  by  (3.40)  as  the  maximum  value  of  y0 f  possible  in  an  accelerated 
flow  without  undergoing  relaminarization.  This  agreement  is  strong  support 
for  the  validity  of  the  scaling  arguments  presented  in  Chapter  3. 

The  r0+  values  determined  by  the  intersection  of  the  shear  stress 
profiles  with  (3.28)  can  be  used  with  (3.34)  and  (3.39)  to  estimate  and 


2 


Figure  6.3  Locating  the  edge  of  the  viscous  wall  region. 
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TB+  for  a  given  acceleration .  The  results  of  the  method  applied  to  the 
data  of  Julien  et.  al .  (1969)  and  Loyd  et.  al .  (1970)  are  plotted  in 
Figures  6.4  and  6.5.  The  A*  and  Tg+  data  of  Kline  et.  al .  (1967)  using  dye 
injection  and  hydrogen  bubble  techniques  are  shown  for  comparison.  Also 
presented  are  the  values  obtained  from  the  computer  calculations.  Consid¬ 
ering  the  difficulties  involved  in  taking  the  data  the  agreement  is  very 
good.  Thus,  the  scaling  arguments  presented  in  Chapter  3  are  shown  to 
provide  a  working  framework  for  estimating  A+  and  Tg+  from  either  a  mean 
velocity  or  shear  stress  profile. 

I 1 •  Pulsating  Pressure  Gradient  Turbulent  Flows 

This  thesis  reports  on  measurements  of  the  variation  of  the  wall  shear 
stress,  the  turbulent  fluctuations  of  the  wall  shear  stress,  and  the 
transverse  correlation  coefficients  of  the  streamwise  velocity  gradient  at 
the  wall  that  are  caused  by  the  imposition  of  a  sinusoidal  pulsation  on  the 
flow  of  a  turbulent  fluid  through  a  pipe.  The  correlation  coefficient 
measurements  provide  information  about  the  variation  of  the  streak  spacing 
with  the  imposed  pressure  gradient.  Results  are  presented  for  dimension¬ 
less  frequencies,  o*,  ranging  from  0.0012  to  0.0915.  By  using  a  small 
amplitude  of  imposed  pulsation  a  linear  response  is  obtained  whereby  the 
wall  shear  stress  variation  can  be  described  by  a  single  harmonic  with  the 
same  frequency  as  the  imposed  oscillation  and  with  an  amplitude  which 
varies  linearly  with  the  amplitude  of  the  imposed  oscillation. 

It  is  found  that  the  measurements  are  correlated  with  the  parameter 
for  values  greater  than  0.005.  This  result  Is  consistent  with  the  measure¬ 
ments  of  Mao  and  Hanratty  (1986),  but  contrasts  with  the  characterization 
of  turbulent  pulsating  pipe  flow  by  a>D/Ug,  as  suggested  by  Jararaman  et. 
al.  (1982),  and  by  <oD/u* ,  by  Ramaprian  and  Tu  (1983).  The  dimensionless 


2  0  7 


— i - 1 — 

- 1 - 

- 1 - 

- , - 

— 

- 

•  Kline  et.al. 

(1967) 

- 

□  This  study 

A  Julien  et.al. 

(1969) 

«- 

V  Loyd  et.al.  (1970) 

1 II 1 1 

- 

mm 

- 

• 

- 

e 

•  «  • 

< 

• 

< 

9 

0  • 

- 

- 

i  i 

» 

- L 

j  -  - 

- 

-2 

-1  0 

1 

2 

3 

4 

KxlO 


Figure  6.4  Streak  spacing  obtained  using  the  scaling  arguments 
and  the  mean  profiles  of  several  investigators. 
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Figure  6.5  Bursting  period  obtained  using  the  scaling  arguments 
and  the  mean  profiles  of  several  investigators. 
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frequency  is  defined  as  <a+  =  2(<5V/<5S)^  =  2(l/<5g  +  )2,  where  <5V  -  v/u  is  the 
length  scale  of  the  viscous  sublayer  and  <$s  =  {2v/w)%  is  the  thickness  of 
the  Stokes  layer.  Binder  et.  al.  (1985)  suggests  a  Reynolds  number 
dependence  on  the  wall  shear  stress  results  when  <5S+  is  greater  than  20 
(w+  =  0.005).  This  value  is  in  agreement  with  the  numerical  results  that 
indicate  a  plug  flow  condition  no  longer  exists  at  the  center  of  the  pipe 
for  <  0.005.  Thus,  it  appears  that  the  loss  of  plug  flow  in  the  center 
of  the  pipe  corresponds  to  the  point  where  scaling  with  co+  (or  <5S  +  )  is  no 
longer  appropriate. 

At  high  (d+  values,  the  experimental  wall  shear  stress  results  agree 
with  the  quasi  laminar  solution.  Measurements  by  Ronneberger  and  Ahrens 
(1977)  also  indicate  agreement  at  high  frequencies.  This  conclusion  is  in 
disagreement  with  the  measurements  of  Mao  and  Hanratty  (1986)  that  had 
significantly  lower  amplitudes.  The  wall  shear  stress  amplitude  data  of 
Binder  et.  al.  (1985)  were  also  lower  than  the  quasi-laminar  solution  at 
high  frequencies.  Furthermore,  measurements  of  the  velocity  field  very 
close  to  the  wall  by  Jayaraman  et.  al .  (1982)  and  by  Ramaprian  and  Tu 
(1983)  seem  to  suggest  lower  pulsation  amplitudes  at  high  frequencies  then 
calculated  from  the  quasi  laminar  solution.  At  present  this  difference  of 
results  cannot  be  resolved. 

The  measurements  of  the  transverse  correlation  coefficients  of  the 
streamwise  velocity  gradient  at  the  wall  are  believed  to  be  the  first  of 
their  kind  in  turbulent  pulsating  flow.  Through  (5.7),  these  measurements 
are  used  to  estimate  the  variation  of  the  streak  spacing  with  the  imposed 
pressure  gradient.  The  results  for  the  variation  of  can  be  interpreted 
so  as  to  Indicate  which  type  of  interaction  between  the  turbulence  and  the 
imposed  pressure  gradient  exists  at  a  specific 

At  low  values,  the  variation  of  + 


is  roughly  10%.  It  leads  the 
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favorable  pressure  gradient  by  90  degrees  and  la  180  degrees  out  of  phase 
with  the  wall  shear  stress  and  the  intensity  of  the  turbulent  fluctuations 
at  the  wall.  This  phase  behavior  suggests  that  the  turbulence  in  the 
viscous  wall  region  is  in  "equilibrium"  with  the  imposed  pressure  gradient. 
This  implies  that  the  imposed  pressure  gradient  is  varying  slowly  enough 
to  enable  the  turbulence  to  respond  to  the  imposed  shear  stress  at  the 
outer  edge  of  the  viscous  wall  region.  Thus,  the  scaling  relations 
developed  for  constant  pressure  gradients  are  found  to  be  applicable  for 
pulsating  turbulent  flow  at  low  w+  values. 

At  higher  dimensionless  frequencies,  the  turbulence  is  no  longer  able 
to  foil ow  the  imposed  pressure  gradient  and,  therefore,  the  amplitude  of 
the  variation  of  the  turbulence  quantities  decreases.  Thus,  a  region  of 
transition  from  equilibrium  turbulence  to  that  of  "frozen"  turbulence 
behavior  is  observed  for  values  between  0.005  and  0.03.  The  value  of 
0.03  corresponds  to  a  <5S+  value  of  8.16.  Consequently,  the  Stokes  layer, 
where  all  the  changes  in  the  pulsating  velocity  gradient  occur,  is  almost 
equal  to  the  thickness  of  the  viscous  sublayer.  Since  turbulence  has  very 
little  effect  on  the  flow  in  the  viscous  sublayer,  the  imposed  pulsations 
in  the  turbulent  velocity  field  would  be  expected  to  have  little  effect  on 
the  turbulent  flow  field. 

In  the  quasi-laminar  limit,  the  amplitude  of  the  variation  of  would 
be  expected  to  be  close  to  zero.  Instead,  a  highly  nonlinear  large 
amplitude  variation  is  observed  in  both  the  intensity  measurements  and  the 

measurements.  The  variation  is  so  highly  nonlinear  that  the  second 
harmonic  contains  over  50%  of  the  energy  of  the  first.  The  intensity 
measurements  at  the  wall  made  by  Mao  (1984)  in  an  8  inch  flow  loop  also 
display  this  behavior.  Thus,  this  nonlinearity  cannot  be  explained  by  some 
type  of  problem  associated  with  the  2  inch  flow  loop.  It  is  to  be  noted 
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that  the  bursting  frequency  of  turbulence  is  at  (o¥  =  0.063.  The  nonlinear 
variation  appears  to  occur  when  the  dimensionless  frequency  of  the  imposed 
pulsation  is  equal  to  or  greater  than  the  dominant  frequency  of  the 
turbulence.  This  seems  consistent  with  the  suggestion  by  Mizushina  et.  al. 
(1973)  that  significant  changes  in  the  turbulence  structure  occurs  when  the 
frequency  of  the  imposed  pulsation  is  the  same  as  the  bursting  frequency. 

At  present,  no  explanation  can  be  put  forth  for  this  behavior  at  high  wf. 

The  straightforward  application  of  a  turbulence  model  developed  for 
flow  without  pulsation,  such  as  Model  C,  is  not  capable  of  describing  the 
experimental  wall  shear  stress  results.  A  model,  such  as  Model  D  that 
imposes  a  lag  between  the  imposed  pressure  gradient  and  the  change  of  scale 
in  the  viscous  wall  region,  is  needed  to  describe  the  data.  The  parame¬ 
ters,  kj  =  -25  and  kr  =  3500,  chosen  to  fit  the  experimental  results  are 
very  close  to  those  used  by  Loyd  et.  al.  (1970)  to  describe  boundary  layer 
flows  and  by  Abrams  and  Hanratty  (1985)  to  describe  flow  over  a  wavy 
surface.  This  similarity  of  values  implies  that  the  mechanism  behind  the 
relaxation  phenomenon  is  the  same  for  all  the  flows. 
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CONCLUSIONS  AND  RECOMMENDATIONS 

This  thesis  reports  experimental  and  numerical  results  on  the  effect  of 
an  imposed  pressure  gradient  on  the  viscous  wall  region.  Constant  and  time 
varying  pressure  gradients  homogeneous  in  the  streamwise  direction  are 
considered.  The  results  are  summarized  as  follows: 

a.  The  major  effect  of  the  imposition  of  a  constant  pressure  gradient 
on  a  turbulent  boundary  layer  is  to  change  the  shear  of  the  flow  and 
to  be  a  source  of  momentum  in  the  viscous  wall  region.  Arguments 
are  presented  that  show  that  the  turbulence  scales  with  the  shear 
stress  at  the  outer  edge  of  the  viscous  wall  region. 

b.  A  parameter,  Pe+,  is  defined  to  account  for  part  of  the  imposed 
pressure  gradient  being  used  to  speed  up  the  flow  in  the  viscous 
wall  region.  Relaminarization  of  a  turbulent  flow  is  suggested  to 
occur  when  the  effective  pressure  gradient  at  the  outer  edge  of  the 
viscous  wall  region  is  equal  to  its  minimum  value  of  -0.00962.  The 
maximum  eddy  Reynolds  number  criterion  of  Bradshaw  (1969),  that 
suggests  relaminarization  occurs  when  the  logarithmic  region 
disappears  and  the  length  scales  of  the  energy-containing  and 
energy-dissipating  eddies  overlap,  is  shown  to  be  consistent  with 
the  minimum  Peo+  criterion. 

c.  The  amplitude  and  phase  of  the  wall  shear  stress  are  found  to  be 
correlated  by  a  single  parameter  w+  for  values  above  0.005. 

This  scaling  is  shown  to  breakdown  when  the  variation  of  the 
pulsating  velocity  at  the  center  of  the  pipe  can  no  longer  be 
described  by  the  inviscid  solution  of  the  Navier-Stokes  equations. 

d.  The  variation  of  +  through  a  period  of  pulsation  is  estimated  from 
measurements  of  the  transverse  correlation  coefficient  of  the 
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streamwise  velocity  gradient  at  the  wall.  These  measurements  i.idi 
cate  that  a  substantial  variation  of  /t+  occurs  in  the  equilibrium 
region  of  the  flow.  The  relaxation  phenomena  observed  by  Mao  and 
Hanratty  (1985)  is  confirmed  iri  the  measurements  of  However,  an 

unexpected  highly  nonlinear  large  variation  of  A+  is  observed  at  wT 
values  higher  than  the  bursting  frequency.  This  behavior  at  high  <a+ 
cannot  be  explained  by  present  theories  of  turbulence. 

Several  interesting  problems  in  need  of  further  study  emerged  from  the 
experimental  part  of  this  work: 

a.  Further  investigation  of  the  enhancement  of  turbulence  at  high  w+  is 
needed.  A  direct  numerical  simulation,  a  large  eddy  simulation,  and 
a  "2%  D"  simulation  from  wall  to  wall  are  possible  numerical  methods 
that  can  be  tried  in  order  to  obtain  a  better  physical  understanding 
of  the  variation  at  high  .  Optical  techniques  that  do  not 
interfere  with  the  flow  should  also  be  used  to  experimental!,7 
examine  the  flow  in  the  viscous  wall  region  at  high  w*. 

b.  Measure  the  mass  transfer  coefficient  in  turbulent  pulsating  pipe 
flow  in  order  to  determine  if  the  variation  of  the  fluctuations  in 
the  mass  transfer  show  the  same  nonlinearity  at  high  w+  as  does  the 
turbulent  fluctuations  at  the  wall. 

c.  The  relatively  large  variation  of  the  turbulence  at  moderate  a>+ 
suggests  the  possibility  of  obtaining  drag  reduction  using  a  nonsinu- 
soidal  pulsation.  One  possible  pulsation  cycle  might  have  a  slow 
variation  over  most  of  the  cycle  followed  by  a  sharp  acceleration. 

d.  Directly  determine,  using  a  hot-wire  or  optical  technique, 
the  oi+  value  at  which  plug  flow  in  the  center  of  the  pipe 


disappears . 
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Symbol 

a 

A 


C 


Cb 

Cf 

D 

f 

F 

H 

I 

K 

k 

kl 

kr 

kR 

K 

£ 


L 


e 


n 


e 


P 

Pe 

r 


R 


NOMENCLATURE 


Amplitude  of  pressure  gradient 

Amplitude  correction  factor  for  frequency  response 
of  the  probe:  van  Driest  constant 

Concentration 

Bulk  concentration 

Skin-friction  coefficient 

Pipe  diameter 

Frequency 

Faraday1 s  constant  . 

Ratio  of  two  consequent  grid  sizes; 

Shape  factor 

Current  flowing  in  the  electrochemical  cell 
Von  Karmen  constant  0.41 

Time  dependent  component  of  mass  transfer  coefficient 

Imaginary  part  of  k 

Relaxation  constant 

Real  part  of  k 

Mass  transfer  coefficient; 

Acceleration  parameter 

Mixing  length 

Effective  length  of  electrode 

Number  of  electrons  transferred  in  electrochemical 
reaction 

Pressure 

Effective  pressure  gradient 
Coordinate  in  radial  direction 
Pipe  radius 

Correlation  coefficient 


Unit 

g/cm-sec2 


mole/cm3 

mole/cm^ 

cm 

1/sec 


amp 


cm/sec 


cm/sec 

cm 

cm 


g/cm-sec2 

cm 

cm 
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Re 

Reynolds  number 

*2 

Momentum- thickness  Reynolds  number 

q2 

Turbulent  kinetic  energy 

cm2/se( 

s 

Time  dependent  component  of  velocity 
gradient  at  the  wall 

cm/secJ 

sx 

Streamwiae  velocity  gradient  fluctuation 
at  the  wall 

cm/sec* 

S 

Velocity  gradient  at  the  wall 

cm/sec- 

Sc 

Schimdt  number 

sx 

Streamwise  velocity  gradient  at  the  wall 

cm/sec 

t 

time 

Tb 

Bursting  period 

sec 

u 

Fluctuating  streamwise  velocity 

cm/sec 

* 

u 

Friction  velocity 

cm/sec 

!J 

Mean  streamwise  velocity 

cm/sec 

ub 

Bulk  velocity  in  pipe 

cm/sec 

Uco 

Free  stream  velocity 

cm/sec 

V 

Transverse  velocity 

cm/sec 

W 

Spanwise  velocity 

cm/sec 

w 

Width  of  the  electrode 

cm 

X 

Coordinate  In  the  flow  direction 

cm 

y 

Coordinate  normal  to  the  wall 

cm 

y* 

Dimensionless  y.  (y+  =  yu*/v) 

Greek 

Symbol 

a 

Dif fusivity 

s 

Boundary  layer  thickness 

cm 

5* 

Displacement  thickness 

cm 
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<5c 

Concentration  boundary  layer 

cm 

SS  ,  fig 

Stokes  layer  thickness 

cm 

Viscous  sublayer  thickness 

cm 

Ar 

Shear  stress  gradient  parameter 

e 

Dissipation 

A 

Pressure  gradient  parameter 

0 

Phase 

degree 

A 

Streak  spacing 

cm 

ft 

Molecular  viscosity 

g/cm-sec 

V 

Kinematic  viscosity 

cm^/ sec 

Turbulent  eddy  viscosity 

cm3/sec 

P 

Density  of  fluid 

g/cm3 

r 

Shear  stress 

g/cm-sec^ 

r(t) 

Turbulent  shear  stress 

g/cm-sec3 

rw 

Wall  shear  stress 

g/cm~sec3 

(D 

Angular  frequency 

1/sec 

(W* 

Dimensionless  w.  (a>+  =  <ov/u*^) 

n 

Frequency  parameter  (n  =  (<a/u)^  r0) 

Overline  and  brackets: 

** 

Periodic  component 

- 

Time  average 

<  > 

Phase  average 

f  i 

Amplitude 

Subscripts : 

0 

Quantity  located  at  the  outer  edge  of  the  viscous 
wall  region 

j  Quantity  associated  with  the  inner  eddies 

2  Quantity  associated  with  the  outer  eddies 

Superscripts : 

+  Nondimensional  with  friction  velocity 

and  kinematic  viscosity 


o 


Quantity  scaled  with  the  shear  stress  at  the  outer 
edge  of  the  viscous  wall  region  and  assumed  constant 
independent  of  acceleration 
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APPENDIX  I.  Amplitudes  and  Phases  of  the  Phase  Averaged  Data 
(a)  Wall  Shear  Stress 
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APPENDIX  II.  Constant  Pressure  Gradient  Program 


*************** * ** * * ********** * * **** * ********************* * **** * 
C****  PROGRAM  CONSTANT  PRESSURE  GRAD. 

C 

C  THIS  PROGRAM  CALCULATES  THE  STREAMLINES  PATTERN 
C  FOR  A  FIXED  CELL  OF  THE  MODEL  FLOW  IN  THE  WALL  REGION. 

C 

C  BOUNDARY  CONDITIONS  AT  Y=YO: 

C  W=WO ( 2 , T )  V=VO ( Z , T ) 

C 

C  INPUT  FILES 

(■•***************************************************** 

C  F0R02 1 =PZU ( NBEF ) :  CONTAINS  PSI, ZETA  AND  UCOM  FROM 

C  PREVIOUS  RUN 

C  FOR022  =IJBO ( NBEF )  :  CONTAINS  THE  MEAN  STREAMWISE  VELOCITY 

C  AT  YO+  OF  THE  PREVIOUS  RUN.  QUANTITY 

C  HAS  ALREADY  BEEN  CORRECTED  WITH  THE 

C  STREAMWISE  GRADIENT  AT  THE  WALL. 

C  F0R023=UAB(NBEF) :  CONTAINS  THE  STREAMWISE  MEAN  VELOCITY 
C  TO  BE  USED  TO  CALCULATE  THE  MEAN 

C  NORMAL  VELOCITY 

C  F0R024=PSI (T) :  CONTAINS  PSI  AT  EVERY  TIME  STEP 

C  F0R025=ZBC (T) :  CONTAINS  ZETA  AT  THE  UPPER  AND  LOWER 

C  BOUNDARIES  AT  EVERY  TIME  STEP 

C  FOR026=UCM(T)  :  CONTAINS  UCOM  AT  EVERY  TIME  STEP 
***************************************************** 

C  OUTPUT  FILES 

C* ******************************** ******************** 

C  F0R031=PZU(NT0T) :  CONTAINS  PZU.ZETA  AND  UCOM  AT  THE 
C  END  OF  THIS  RUN 

C  FOR032=UBO:  CONTAINS  THE  CORRECTED  MEAN  STREAMWISE  VELOCITY 
C  AT  YO+  FOR  THE  NEXT  RUN  AND  THE  RATIO 

C  OF  COUTTE  VELOCITY  TO  STREAMWISE  GRADIENT 

C  AT  THE  WALL. 

C  FOR033=UAB :  CONTAINS  UAB  AT  THE  END  OF  THE  RUN  UNCORRECTED. 

C  F0R034=ZBC :  CONTAINS  ZETA  AT  THE  UPPER  AND  LOWER  BOUNDARIES 

C  AT  EVERY  TIME  STEP 

C  FOR035=PSI :  CONTAINS  PSI  AT  EVERY  TIME  STEP 

C  F0R036=DPL :  CONTAINS  STATISTICAL  QUANTITIES  AT  END  OF  RUN 

C  FOR037=TS :  CONTAINS  #  OF  STEPS  AND  TOTAL  TIME  AS  THE  RUN 

C  IS  BEING  CALCULATED 

C  F0R038=UCM :  CONTAINS  UCOM  AT  EVERY  TIME  STEP 
c***************************************************** 

C 

DIMENSION  PS 1(5 1,101) , PS 11(51, 101) , ZETA ( 51 , 101 ) , ZETA1 (51,101) 
DIMENSION  ZETA2 (51 , 101 )  ,  WTAX(51 )  , U1’AX(51 )  , PSIUP(51 ) , DVDZ (51 ) 
DIMENSION  WORK ( 5000 ) , WGR (51 ) , UGR ( 51 ) ,DUDZ(51) 

DIMENSION  UCOM (51 , 101 )  ,VBEF(51)  ,PEF1?(  101)  ,ALPHA(  101) 

DIMENSION  BDA(101 ) ,BDB(101 ) , BDC ( 101 ) , VTAX(51 ) , USAV( 101 ) 
DIMENSION  Y(101) , Z ( 5 1 ) , DWDZ (51 ) , ZETABC (51 , 2 ) 

DIMENSION  UAVE ( 101 ) , VAVE ( 101 ) , WAVE (101) ,UB2(101) ,UB(101) 
DIMENSION  YPLUS(lOl) 

DIMENSION  UINTYO ( 101 ) , VINTYO ( 101 ) .WINTYO(lOl) ,AU2(101) 
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REAL  LAM , I NDEXM , N I NDEX , N I PTS  , KP 
INTEGER  CYCLE 

C0MM0N/AREA1/R , FOVRE , FOVRE1 , BETAP , BETAM , GAMAP , GAMAM 
COMMON/AREA2/A , B , C , D , IDIMF 
COMMON/AREA3/M , MP1 , MM1 , MM2 ,N,NP1 , NMI , NM2 
COMMON/AREA4 /WORK , BOA , BOB 
COMMON/AREA5/CHVEL , CHLEN , AGON 

COMMON/AREA6/RE ,  DY ,  I)Z  ,  !)T ,  TOY ,  TDZ  .  DY2  ,  DZ2 
COMMON/ AREA7/NCTOT , SXBAR , SZBAR , SXSB , SZSB 
COMMON/ AREA9/NCB , NINDEX 
COMMON/AREA1 O/Y , Z , KSTAT , DTE 
C0MM0N/AREA13/SZBARA , SZBARB , SZSBA , SZSBB 
COMMON/ONE/PS 11 
COMMON/TWO /Z ETA 1 
COMMON/THREE/ZETA2 

COMMON/FOUR/UAVE , VAVE , WAVE , UINTYO , VINTYO , WINTYO 
COMMON/FI XI /ALPHA 
COMMON/FIX2/PPLUS , VAX 
SAVE 

READ*  ,  I NDEXM ,  VAX  ,  STAT ,  RF.LCON 
READ*, ITERM, DTE, E 
READ* , RAT I 02 , E2 , FINALE 
READ* , UINPO , VINPO , WINPO 
READ*  ,  EU1 ,  EV1 ,  F,W1 

READ* , THETU1 , THETU2 , THETV1 , THETV2 , THETW1 , THETW2 

READ* , PM , WAVEM , YOO 

READ* , PPLUS , YOUT , CFD2 , APLUS , AU2 I 

READ* , FTOG , UTOG 

READ*, FI ELD I .PZIINC 

READ* , FIELDO , PZOINC 

READ* , UCOMI , U I INC 

READ* , UCOMO , UOINC 

I F ( FTOG . EQ .  1 ) OPEN (21  ,FII.E='PZUI  ,FI=S,RE-V, FM  =U , S I ZE= 1 3 '  , 
$STATUS='OLD' ) 

IF (UTOG . EQ . 1 )OPEN ( 22 , FILE- 1 UBOI ' , STATUS- 'OLD ' , FORM- ' FORMATTED ' ) 

I F  ( UTOG .  EQ .  1 )  OPEN  ( 23  ,  F I  LE-  1 UAB I '  ,  STATUS-- '  OLD '  ,  FORM=  1  FORMATTED ' ) 

I F ( FIELD I . EQ . 1 ) OPEN ( 24 , FILE- ' : TEMP : PSI I , FI =S , RE=V , FM-U , 

$SIZE"13 ' , STATUS = ' OLD ' ) 

I F  ( F I  ELD  I  .  F.Q  .  1 )  OPEN  ( 25  ,  F I  I.E-  '  :  TEMP :  ZBCI ,  FI-S  ,  RE=V ,  FM-U , 

$SIZE"13 1 , STATUS- ' OLD ' ) 

IF ( FIELDO. EQ. 1)0PEN( 35, 

SFILE" ' : HOST : SYS$OVERFLOW : [240016.0SCjPSIO.DAT, 

$I.E=49288  ,  SI  =  13  ,  SB-8192  .  FIL-S ,  RF.-V ,  FM-U ,  BL0CKS=2  1  ,  STATUS-  '  NEW '  ) 

I F ( F IELDO . EQ . 1 ) OPEN ( 34 , F I LE- 1 : HOST : DRA3 : [ 2400 16 . APSTOR ] ZBCO . DAT , 
SLE-8192 , SI  =  13 , SB-2048 , FIL=S , RE-V . FM-U , BLOCKS-2 1  , STATUS- 1  NEW ' ) 

I F ( UCOMI . EQ . 1 ) OPEN ( 26 , F ILE- ' : TEMP : UCMI , FI =S , RE-V, FM-U , SIZE- 13 1 , 
SSTATUS- ' OLD ' ) 

I F ( UCOMO . EQ . 1 ) OPEN ( 39 , FI LE= ' : HOST : DRA3 : [ 24  00 1 6 . APSTOR ] UCMO . DAT , 
SLE-49288 , SI-13 , SB-8192 , FIL-S , RE-V , FM-U , BLOCKS-2 ' , STATUS- ’ NEW' ) 
U1=2*SQRT(EU1 ) 

U2=2*SQRT( 1 -EU1 ) 

V1=2*SQRT(EV1 ) 

V2=2*SQRT( 1 -EV1 ) 

WJ -2*SQRT(EW1 ) 


o  o 
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W2=2*SQRT ( 1 -EW1 ) 

PRINT*  '********************************************' 

PRINT*,'  TWO  WAVELENGTH  RUN' 

IF(VAX . EQ . 0)PRINT* , '  THIS  IS  AN  ARRAY  PROCESSOR  RUN' 

IF( VAX . EQ .  1  )PRINT*  ,  '  THIS  IS  A  VAX  RUN' 

I F ( STAT . EQ . 1 ) PR I NT* , '  STATISTICS  WILL  BE  GENERATED  THIS  RUN' 
IF(FIEL))I . EQ . 1 ) PRINT* , '  PSI.ZETA  FIELD  IS  INPUT  AT  EACH  TIME  STEP' 
IF (FIELDO . EQ . 1 ) PRINT* , '  PSI ,VBC  AT  EVERY  TIME  STEP  IS  OUTPUT' 
IF(UCOMI .EQ. 1) PRINT*, '  UCOM  AT  EVERY  TIME  STEP  IS  INPUT' 

IF(UCOMO . EQ . 1 )PRINT* , ’  UCOM  AT  EVERY  TIME  STEP  IS  OUTPUT' 

IF(FTOG . EQ . 0) PR I NT* , '  INITIAL  PSI.ZETA  FIELD  IS  CALCULATED' 

IF (FTOG.EQ.l) PRINT*, '  INITIAL  PSI.ZETA  FIELD  IS  INPUT' 

IF (UTOG . EQ . 0 )PRINT* , '  INTIAL  UBAR  PROFILE  IS  CALCULATED' 

IF(UTOG . EQ . 1 ) PRINT* , '  INITAL  UBAR  PROFILE  IS  INPUT' 

IF (FIELD I .EQ. 1) WRITE (G, 1430) PZI INC 
IF(FIELDO.EQ. 1) WRITE (6, 1330) PZOINC 
IF(UCOMI .EQ. 1) WRITE (6, 1450 )UI INC 
IF(UCOMO.EQ.1)WRITE(6,1440)IJOINC 

PRINT*  1 ********************************************' 

WRITE(6, 1310) DTE, E 
WRITE(6, 1320 )RATI02,E2, FINALE 
WR I TE ( G . 1 4  00 ) I TERM , I NDEXM 
WRITE ( 6 , 1340 ) UINPO , VINPO , WINPO 
WRITE(G , 1410)EU1 , EVI , EW1 
WRITE ( 6 , 1350 )U1 , U2 , VI , V2 , W1 , W2 

WRITE (6 , 1360)THETU1 , THETU2 , THETV1 , THETV2 , THETW1 , THETW2 

WRITE (6, 1370)PM,WAVEM 

WRITE (6, 1380 )YOO 

WRITE ( 6 , 1390 ) PPLUS , APLUS , AU2I 

£*********************************************************** 
c****  DEFINITIONS  OF  IMPORTANT  VARIABLES  THAT  ARE  NOT 
C****  input  VARIABLES 

C  B:  DIMENSIONLESS  LENGTH  OF  THE  COMPUTATIONAL 
C  DOMAIN  IN  THE  SPANWISE  DIRECTION 

C  D:  DIMENSIONLESS  LENGTH  OF  THE  COMPUTATIONAL 
C  DOMAIN  IN  THE  NORMAL  DIRECTION 

C  CU1 f  CU2 :  CONSTANTS  THAT  ADJUST  THE  STREAMWISE 
C  INTENSITY  AT  THE  UPPER  BOUNDARY 

C  CV1 , CV2 :  CONSTANTS  THAT  ADJUST  THE  NORMAL 
C  INTENSITY  AT  THE  UPPER  BOUNDARY 

C  CWI.CW2:  CONSTANTS  THAT  ADJUST  THE  SPANWISE 
C  INTENSITY  AT  THE  UPPER  BOUNDARY 

C  ALU1 ,  ALU2 :  DIMENSIONLESS  WAVELENGTHS  OF  THE  U-FLUCTUATIONS 

C  ALV1 , ALV2 :  DIMENSIONLESS  WAVELENGTHS  OF  THE  V-FLUCTUATIONS 

C  Al.Wl.ALW2:  DIMENSIONLESS  WAVELENGTHS  OF  THE  W -FLUCTUATIONS 

C  THETU1 , THETU2 :  PHASES  OF  THE  U-FLUCTUATIONS  IN  DEGREES 

C  THETV1 , THETV2 :  PHASES  OF  THE  V-FLUCTUATIONS  IN  DEGREES 

C  THETW1 , THETW2 :  PHASES  OF  THE  W-FLUCTUATIONS  IN  DEGREES 

£****.****************#*.*************#***********#********  ****** 

C****  READS  INPUT  PARAMETERS 

********  ***********************  ****************************** 

I NDEXM:  INTEGER  MULTIPLE  OF  TP2  BY  WHICH  THE 
TOTAL  TIME  STEPS (NINDEX)  IS  SET. 

C  VAX:  0  =  ARRAY  PROCESOR  RUN 


nnnnnnnn 


230 


C  1  =  VAX  RUN 

C  I TERM:  MAXIMUM  NUMBER  OF  ITERATIONS  OF  ADI 
C  SCHEME  AT  EACH  TIME  STEP 

C  E:  ACCURACY  OF  CONVERGENCE  OF  ADI  SCHEME 
C  DTE:  EXPERIMENTAL  TIME  STEP  IN  WALL  PARAMETERS 
C  RELCON:  RELAXATION  CONSTANT  FOR  THE  ITERATION  ON  THE 
C  ADI -SCHEME 

C  PPLUS :  CONSTANT  PRESSURE  GRADIENT  IN  THE 
C  STREAMWISE  DIRECTION 

C  CFD2 :  SKIN-FRICTION  OF  FLOW 

C  YOUT:  OUTER  EDGE  OF  SUBLAYER  REGION  IN  PLUS  UNITS 
C  APLUS:  VAN  DRIEST  SUBLAYER  THICKNESS  CONSTANT 

C  1J1.U2:  AMPLITUDES  OF  THE  STREAMWISE  FLUCTUATIONS 

c  VI. V2:  AMPLITUDES  OF  THE  NORMAL  FLUCTUATIONS 

C  W1.W2:  AMPLITUDES  OF  THE  TRANSVERSE  FLUCTUATIONS 

C  UINBC , VI NBC . WINBC :  INTENSITIES  AT  THE  UPPER  BOUNDARY 

C  IN  WALL  UNITS. 

C  PM:  INTEGER  MULTPLIF.R  OF  1ST  TIME  PERIOD. 

I.E.  TP2=PM*TP1 

WAVEM :  INTEGER  MULTIPLIER- OF  1ST  WAVELENGTH 
I.E.  ALU2 =AUJ  1 *WAVEM 

FTOG :  O^CALCULATES  THE  INITIAL  PSI . ZETA , FIELD 
1 =READS  IN  THE  INITIAL  PSI . ZETA. FIELD 
UTOG:  0=CAI.CULATE  INITIAL  UBAR  PROFILE 
1= INPUT  UBAR  PROFILE 
PARAMETERS  FOR  THE  MODEL  FLOW 
C 

A=0 . 0 

C=0.0 

M=50 

N-lOO 

IDIMF-M+1 

MP1 =M+1 

FMP.t  =FLOAT  ( MP.l ) 

MM1 =M  1 
NP1=N+ 1 
NM1 =N-1 
NM2=N-2 
MM2  =M-2 

PI=4 . *ATAN ( 1 .  ) 

TPI =2 . *PI 

PEFFO=YOO**2/YOUT**3  -  ,1/YOUT 

TAUOSR=YOO/YOUT 

TAUO-TAUOSR**2 

LAM" lOO/TAUOSR 

LAM- N I  NT  (I.AM) 

CHLEN-LAM 
TP1=100/TAU0 
TPI =NINT(TP1 ) 

TP 2 =N I NT (PM* TPI) 

1JINBC=UINP0*TAU0SR 

VINBC-VINPO*TAUOSR 

WINBC=WINPO*TAUOSR 

CUVO-- ( ( SQRT(EU1*EV1 ) *COS ( (THETU1  THETV1 ) *PI/180 ) ) + 

$ ( SQRT ( ( 1 -EU1 ) * ( 1 -EV1 ) ) *COS ( ( THETU2 -THETV2 ) *P I / 1 80 ) ) ) 


UVO=CUVO*UINBC*VINBC 
DUDYO-TAUO-UVO 
CHVEL=2 . *VINBC 
CU1=U1*UINBC/CHVEL 
CU2=U2*UINBC/CHVEL 
CV1=V1*VINBC/ CHVEL 
CV2=V2*VINBC/CHVEL 
CW1=W1  *WINBC/CHVEI. 

CW2  =W2  * W I NBC / CHVEL 
ALU1=LAM/CHLEN 
ALV1  =LAM/CHLEN 
ALW1 -LAM/CHLEN 
ALU  2  =ALU 1 * WAVEM 
AI.V2=ALV1*  WAVEM 
ALW2=ALW1* WAVEM 
D- YOUT/CHLEN 
DY=D/FLOAT(N) 

N I NDEX= I NDEXM*TP2 

WRITE (6 , 1000)NINDEX 

WRITE (6,1 01 0)UINBC,VINBC,WINBC 

WRITE ( 6 , 1020 ) CU1 , CU2 , CV1 , CV2 , CW1 , CW2 

WRITE  ( 6  ,  .1300 ) TAUO  ,  UVO ,  DUDYO ,  CUVO 

WRITE (6,1030) CFD2 , YOUT ,  PEFFO 

WRITE (0 , 1040 ) ALW1 *CHLEN , ALW2*CHLEN , TP1 , TP2 

B  =LAM*WAVEM/ ( 2*CHLEN ) 

DZ=B/FLOAT(M) 

TDY=2  .  *i)Y 
Tf)Z=2 .  *DZ 
DY2=DY**2 
DZ2=DZ**2 
R=DZ/DY 

RE=CHVEL*CHLEN 
ACON=CHVEL/CHLEN 
DTV=RE*DZ2/  ( 2  .  *  ( .1 .  +R**2 ) ) 

WR I TE (6,1 060 ) CHVEL , CHLEN , RE 

(■I********************************************** 

C  GENERATES  MESH  COORDINATES 
********************************************** 

DO  100  I  ■- 1  ,  MP 1 
100  Z ( I ) -FLOAT ( 1-1 ) *DZ 
DO  110  J  1.NP1 

YPI.US  ( J )  -  FLOAT  ( J- 1 )  *YOUT/FLOAT  ( N ) 

110  Y(  J )  =FL0AT ( J-- J  ) *DY 
NC0UNT=0 . 

Q* *************************************** 

C****  CALCULATE  THE  TEMPORAL  PART  OF 
C****  THE  upper  BOUNDARY  CONDITIONS 
r **************************************** 

VPRIN1-] . 

VPRIN2=0 . 

TSTEP=FLOAT ( NCOUNT ) *DTE fDTE 
TIME1=TPI*TSTEP/TP1 
T IME2=TPI *TSTEP/TP2 
UVEL1=CU1*C0S (TIME 1+THETU1*PI/ 180 ) 
UVEL2=CU2*C0S (TIME2+THETU2*PI/180) 


232 


VVEL1 =CV1 *COS  (TIME1+THKTV  1*1*1/ 180 ) 

VVEL2=CV2*COS ( TIME2+THETV2*PI /I 80 ) 

WVEL1 =CW1 *COS (TIME1 +THETW1 *PI/ 180 ) 

WVEL2=CW2*C0S (TIME2 kTHETW2*PI/180 ) 

p****************************************** 

C****  READS  STREAM  FUNCTION .VORTICITY  AND 
C****  STREAMWISE  VEEOCITY  FROM  TIME  STEP  N. 

^* ***************************************** 

I F ( FTOG . EQ . 1 . OR . UTOG . EQ . 1 ) THEN 

READ (21 )PSI 

READ (21)  ZETA 

READ(2I )  UCOM 

DO  115  I-1.MP1 

DO  115  J-1.NP1 

PS  I ( I . J ) =PS I ( I . J ) *2*LAM*TAU0SR/ ( CHLEN*CHVEL ) 

ZETA ( I  ,  J)  =ZF.TA(  I ,  J )  *CHLEN*TAUOSR/ ( CHVEL*  2*LAM ) 

115  UCOM ( I , J ) -UCOM ( I , J ) /CHVEL 
CLOSE (21 ) 

ELSE  IF ( FTOG. EQ.O) THEN 

p*  ************  *  **  *  **************** 

c****  CALCULATES  INITIAL  PSI.ZETA 
c********************************* 

DO  120  1=1, MP 1 

WTAX(I )=WVEL1*SIN(TPI*Z(I )/AI.Wl )+WVEL2*SIN(TPI*Z( I )/ALW2) 
DO  120  .J  =1 ,  NP1 
ZETA ( I , J ) =0 . 0 
PSKI.J)-ZBTA(I.J) 

120  CONTINUE 

CALL  HWSCRT ( A , B , M , 1 , BDA , BDB , C , D , N , 2 , BDC , WTAX , 0 . ,PSI , IDIMF , 
$PERTRB, I ERROR, WORK) 

END  IF 

p***************************** 

C  ZEROES  ALL  THE  COUNTERS 

p ********************  ********* 

I FLAG-2 

IFL=0 

NC-0 

NCTOT-O 

ITERS-0 

NCOUNT-O 

NCYCLE-0 

CYCLE =0 

NCB-0 

DTS-0.0 

STEP-YOUT/N 

TCOUNT-O . 0 

NSTATP-0 . 0 

NTOT-O 

TSOC-O.O 

p*********** ***************************** 

C****  IF  DESIRED  CALCULATE  NEW  U  PROFILE 
c**************************************** 

IF (UTOG. EQ.O) THEN 

IF ( PPLUS . NE . 0)AU20=Y0UT* ( 1 -PEFFO/PPLUS ) /CFD2 
IF ( PPLUS . EQ . 0 ) AU20=AU2I 


CALL  VAND (M ,  N ,  YOUT ,  PEFFO  ,  CFD2  ,  PPLUS  .  AU20 ,  APLUS  , 

SUB , PEFF , YPLUS , AU2 ) 

UBNEW=UB(NP1) 

DO  160  J=1 , NP1 

ALPHA ( J ) =PPLIJS* ( 1 -CFD2*UB ( J) **2 ) 

DO  160  1=1, MP1 
UCOM ( I , J ) =UB ( J ) / CHVEL 
160  CONTINUE 
RAT I 0=1 

Q* ********************************* 

c****  IF  DESIRED  READ  IN  U  PROFILE 
£********************************** 

ELSE 

READ (22,1120) UBNEW .RATIO , NCYCLE , DUMMY 1 , DUMMY 2 
DO  170  J-1.NP1 

170  READ(23, 1080) DUMMY, UB(J) 
£*********************************** 
c****  BEGIN  NEW  ITERATION  CYCLE 
£*********************************** 

70  AU2 ( 1 ) =0 . 0 
PZ0C=0.0 
UC0M0C=0 . 0 
AREA=0 . 0 
DO  180  L=1 , NP1 
UB(L)=UB(L) /RATIO 
UB2(L)=UB(L)**2 

I F ( L . NE . 1 . ) CALL  PARBL ( UB2 , 1 , STEP , L , AREA , IRROR ) 

180  AU2  ( L )  =ARF.A 

AU20=AU2 (NP1 ) 

PPLUS=PEFFO/ ( 1- ( CFD2 * AU20/ YOUT ) ) 

ALPHA ( 1 ) =PPLUS 
PEFF ( 1 ) =PPLUS 
DO  190  J=2 , NP1 

ALPHA (J)=PPLUS* ( 1- CFD2*UB( J) **2 ) 

ZIG=1 • ( CFD2*UB ( J ) *  *2 ) 

IF  (7,IG .  LE  .  0 . 0 )  ALPHA  (J )  =0 . 0 
190  PEFF ( J )  =PPLUS* ( 1  - ( CFD2*AU2 ( J ) /YPLUS ( J) ) ) 

END  IF 

CYCLE=CYCLE+1 

WRITE (6, 1140) CYCLE 

UL=UBNEW/CHVEL 

WRITE ( 6 , 1 070 ) PPLUS , AU20 , UL 

DO  210  J= 1 , NP1 

USAV(J)=0.0 

IF( J . EQ . 1 )PRINT* , 1  Y+  ALPHA+  PEFF+  UAB+ 

WRITE(6, 1050) YPLUS (J) , ALPHA ( J ) , PEFF ( J ) , UB ( J ) 

DO  210  1=1, MP1 

210  UCOM ( I , J ) =UCOM ( I , J ) /RATIO 
DT=DTE*ACON 

BETAM=8 . * ( 1 . /RE -DZ**2 . /DT) 

BETAP=8  .  *  ( 1 .  /RE  t-DZ**2  .  /DT) 

GAMAP=8  .  *(R**2  .  /RE<-DZ**2  .  /DT) 

GAMAM=8 . *(R**2 . /RE -DZ**2 . /DT) 

F0VRE=4./RE 

F0VRE1=R**2*F0VRE 
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0************************ 

(;****  NEW  TIME  STEP 
(->************************ 

74  NCOUNT-NCOUNT+l 
NT0T=NT0T+1 
TSOC=TSOCU 

IE (NINT(TSOC) . EQ . 50 ) THEN 

OPEN ( 37 , FILE= ' :H0STCHAR:DRA3: [240016. APSTOR]TSO. DAT' , 
$STATUS= ' NEW ' , FORM- ' FORMATTED 1 ) 

TNTOT=FLOAT ( NTOT ) *DTE 
WRITE (37 , 1 150 ) CYCLE , TNTOT 
CLOSE (37) 

TS0C=0 . 0 
END  IF 
DTS=DTSfDT 

0*  ****:******************************* 

C****  CALCULATION  OF  V  AT  THE  UPPER 
C****  BOUNDARY  FOR  TIME  STEP  N. 

DO  230  1=1, MP1 

230  VBF.F ( I )  =VPRIN1  *COS (TPI*Z(  I ) /ALV1 )  +VPRIN2*C0S ( TPI *Z  ( I ) /ALV2  ) 

0***:(c****:(t**************#*****#**:t:******:(:*#i|!#*** 

C****  CALCULATION  OF  U.PSI.W  AND  DV/DZ 
C****  AT  THE  UPPER  BOUNDARY  FOR  TIME  STEP  N+l. 
0*********************************************** 

DO  240  1=1 ,MP1 

WTAX  ( I )  =WVEL.l  *SIN (TPI *Z ( I )  /ALW1 )  +WVEL2*SIN(TPI *Z  ( I )  /ALW2  ) 
UTAX ( I ) =UL HJVEL 1 *COS ( TP I *Z ( I ) /ALU1 ) MJVEL2  *COS ( TP I*Z ( I ) /ALU2 ) 
PS I UP ( I ) =- ( VVEL  1 *ALV1 *S I N ( TPI *Z ( I ) /ALV1 ) +VVEL2*ALV2* 

$S IN ( TPI *Z { I ) /ALV2 ) ) /TPI 

DVDZ ( I ) =■  -TP I  * ( VVEL 1 *S I N ( TPI *Z ( I ) /ALV1 ) /ALV1 +VVEL2 * 

$S I N ( TP I  * Z ( I ) / AL V2 ) /ALV2 ) 

240  CONTINUE 

^*******t*****3(t3icj|t****:**4c***^**^:*****^^**^:*^c*3|c****3»:3|c***** 

C  IF  DESIRED  INPUT  PSI  AND  ZETA  FIELDS  EVERY  TIME  STEPS 
0******************************************************* 

IF (FIELD I . EQ. 1 ) THEN 
DO  263  KL=1 , PZI INC 
263  READ(24)ZETA2 

I F ( N I NT ( ( FLOAT ( NCOUNT )*DTE*100)).EQ.NINT(TP2*100))REWIND(24) 
DO  265  I  1.MP1 
DO  265  J=1 , NP1 

265  ZETA2 ( I , J) =ZETA2 ( I , J ) *2*LAM*TAU0SR/ ( CHVEL*CHLEN ) 

IF(NCYCLE . EQ . 0 ) GOTO  260 
DO  283  KL-1 , PZI INC 
283  READ(25)ZETABC 
DO  285  1=1. MP1 

ZETA  1  ( I  ,  1 )  =ZETABC  (1,1)  *TAUOSR*CHLEN/  ( CHVEI.*2*LAM ) 

ZETA1 ( I , NP1 ) =ZKTABC (1,2) *TAUOSR*CHLEN/ ( CHVEL*2*LAM) 

DO  285  J=2 , N 

ZETA1 ( I , J)= (ZETA2 ( 1+1 , J) -2*ZETA2 ( I , J ) +ZETA2 ( 1-1 , J) ) /DZ2 
$+  ( ZETA2  (I,  J+l)  -2*ZETA2  ( I ,  J)  1-ZETA2  ( I ,  J -1 )  )  /DY2 
285  CONTINUE 
260  END  IF 

0******************************************************* 
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C  GUESS  FOR  STREAM  FUNCTION  AND  BOUNDARY  VORTICITY 
C  IN  THE  FIRST  ITERATION  OF  THE  CURRENT  TIME  STEP. 

C  PS I  IS  PS I  FOR  TIME  STEP  N 

C  PSI1  IS  GUESS  FOR  TIME  STEP  N+l 
C  ZKTA2  IS  RESULT  FOR  TIME  STEP  N+l 
C  ZETA  IS  ZETA  FOR  TIME  STEP  N 
C  ZETA1  IS  ZETA  FOR  TIME  STEP  N+l 

IF ( FIELD I . EQ . 0 ) THEN 
DO  250  1=1, MP1 
DO  250  J-1.NP1 
250  PSI1(I.J)=PSI(I,J) 

DO  270  J  =  2,N 
ZETA1(1.J)«ZETA(1.J) 

270  ZETA1 (MP1 , J)=ZETA(MP1 , J) 

DO  280  1=2. M 
ZETA2 (1,1) =ZETA( 1,1) 

280  ZETA2 (I , NP1  )=ZETA( I , NP.l ) 

ITER=0 

Q**************************** ************** 

C  NEW  ITERATION  AT  THE  CURRENT  TIME  STEP 
£****************************************** 

42  ITER»ITER+1 

^ ***************************************** 

C  ADI -SOLVER  FOR  THE  V-W  VELOCITY  FIELD 
c* ********* ******************************* 

CALL  VWSOL ( PS I , PS 1 1 . ZETA , ZETA1 . ZETA2 . I ER ) 

IF(IER.EQ. 129)  GO  TO  22 

£***«* ************************* ************ 

C  POISSON-SOLVER  FOR  THE  STREAM  FUNCTION 

Q* ***************************************** 

DO  290  1=2, M 
DO  290  J=1 . NP1 
290  ZETA1 ( I , J )=ZETA2 ( I , J ) 

DO  320  I =2  ,  M 
ZETA2 ( I , 1 ) =0 . 

320  ZETA2 ( I , NP1 ) =PSIUP( I ) 

DO  510  J=1 ,NP1 
ZETA2 ( 1 , J) =0 . 

510  ZETA2 (MP1 , J ) =0 . 

CALL  HWSCRT(A,B,M, 1 , BDA , BDB , C , D , N , 1 , BDC , BDD , 0 . , ZETA2 , IDIMF , 
1PERTRB , I ERROR , WORK) 

I F ( I ERROR . GT . 0 )  GO  TO  26 
IF ( ITER . EQ . 1 )  GO  TO  30 
AMAXI=0 . 

DO  330  1=1, MP1 
DO  330  J=1 , NP1 

DEV=ABS ( ZETA 2 ( I , J ) -PS 1 1 ( I , J ) ) 

330  AMAXI=AMAX1 (AMAXI ,DEV) 

IF(AMAXI.LE.K)  GO  TO  34 
IF( ITER . EQ . ITERM)  GO  TO  38 

f ************************************************* 

C  STORES  ESTIMATE  OF  STREAM  FUNCTION  AND  UPDATES 
C  BOUNDARY  VORTICITY  FOR  THE  NEXT  ITERATION 
£************************************************* 
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30  DO  350  1=1, MF1 
DO  350  J=1 , NPl 
350  PS I 1 ( I , J ) =ZBTA2 ( I , J ) 

DO  370  J=2 , N 
ZETA1 ( 1 , J ) =0 . 

370  ZETA1 (MP1 , J)=0. 

DO  380  1=2, M 

ZETA2 (1,1) =RELC0N*ZETA1 (I , 1 )+(l . -RELCON ) * (8 . *PSI  1 (1,2) -PS I 1 (1,3)) 
$/( 2 . *DY2 ) 

ZETA2 ( I , NPl ) =RELC0N*ZETA1 ( I , NPl ) + ( 1 . -RELCON )*(2.*((PSI1(I,N)- 
$PS 1 1 ( I , NPl ) ) /DY2  ^Wl’AX ( I ) /DY ) -DVDZ ( I ) ) 

380  CONTINUE 
GO  TO  42 

34  ITERS=ITERSHTER 
END  IF 

£************************************** 

C****  INPUT  U  FIELD  AT  EVERY  TIME  STEP  IF  DESIRED 

Q* ************************************************ 

IF ( UCOMI . EQ . 1 )THEN 
DO  580  KL=1 , UI INC 
580  READ  (26)  IJCOM 

IF ( (NINT ( FLOAT (NCOUNT ) *DTE*100 ) ) . EQ . NINT (TP2*100 ) ) REWIND ( 26 ) 

DO  590  1=1, MP1 
DO  590  .1=1 ,  NPl 

590  UCOM ( I , J ) =UCOM ( I , J) /CHVEL 
ELSE 

£  ************************************** 

C  ADI -SOLVER  FOR  THE  U- VELOCITY  FIELD 
£************************************** 

CALL  IJSOL  ( PS  I ,  ZETA2  ,  UCOM ,  UTAX ,  IER) 

IF( IER . EQ . 129 )  GO  TO  46 
END  IF 

j>*************** *************************** 

C****  SUM  U  VELOCITY  FIELD  FOR  AVERAGING 
****************************************** 

DO  390  J-l ,NP1 
DO  390  1=1, M 

USAV ( J ) =USAV ( J ) f UCOM ( I , J) 

390  CONTINUE 

Q* ********************************************** 

C  UPDATES  THE  VORTICITY  FOR  THE  NEXT  TIME  STEP 
£*********************************************** 

DO  410  I =2 , M 
DO  410  J=2,N 

410  ZETA ( I , J ) =ZETA1 ( I ,  J ) 

DO  430  J=1 , NPl 
ZETA( 1 , J ) ”0 . 

430  ZETA (MP1 , J ) =0 . 

DO  440  I =2 , M 

ZETA (I ,  1)-  (8. *ZETA2 (1,2)  -ZETA2 (1,3) )/(2. *DY2 ) 

440  ZETA ( I , NPl ) =2 . * ( ( ZETA2 ( I , N ) -ZETA2 ( I , NPl ) ) /DY2 *-WTAX ( I ) /DY ) -DVDZ ( I ) 
£************************************** 

C  UPDATES  THE  STREAM  FUNCTION  FOR  THE 
C  NEXT  TIME  STEP 

£************************************** 
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no  450  1  =  1  .  MP1 
DO  450  J=1 ,NP1 
450  PSI(I,J)=ZBTA2(I.J) 

DO  470  1=1 ,MP1 

UGR  ( I )  =  ( 4  .  *IJCOM  (1,2)  -UCOM  (1,3))  /TOY 
WGR ( I ) =ZETA2 (1,1) 

470  CONTINUE 

Q*  *********************  **********:*:**********  **** 

C****  OUTPUT  PSI.ZBC  IF  DESIRED 

C  NOTE:  ZETA1  IS  A  DUMMY  VARIABLE  HERE 
C  AS  IT  IS  NO  LONGER  NEEDED 

PZ0C=PZ0C+1 

I F ( NCYCLE . EQ . 1 . AND . PZOC . EQ . PZOINC . AND . FIELDO . EQ . 1 ) THEN 

DO  385  1=1, MP1 

ZETABC (1,1) =ZETA (1,1) *CHVEL*2*LAM/ ( CHLEN*TAUOSR ) 

ZETABC (1,2) =ZKTA ( I , NP1 ) *CHVEL*2*LAM/ ( CHLBN*TAUOSR ) 

DO  385  J=1 ,NP1 

385  ZETA1 ( I , J ) =PS I ( I , J ) *CHVEL*CHLEN/ ( 2*LAM*TAU0SR ) 

WRITE (35 )ZETA1 
WRITE (34) ZETABC 
END  IF 

I F ( PZOC . EQ . PZO I NC ) PZOC  =0 . 0 
F ****************************************** 

C****  OUTPUT  UCOM  IF  DESIRED 
^ ****************************************** 

C  NOTE:  ZKTA1  IS  USED  AS  A  DUMMY  VARIABLE 

UC()MOC=UCOMOC+ 1 

I F  ( NCYCLE .  NE  .  .1  .  OR  .  UCOMOC  .  NE .  UOINC .  OR  .  IJCOMO . NE . 1 )  GOTO  387 
DO  389  1=1. MP3 
DO  389  J=1 , NP1 

389  ZETA1  ( I ,  J )  =IJCOM(  I  ,  J )  *CHVEL 
WR I TE ( 39 ) ZETA 1 

387  I F ( UCOMOC . EQ . UOINC ) UCOMOC  =0 . 0 
F************************************************ 

C****  CALCULATES  PRESSURE  FIELD  AND  STATISTICS 
c****  IF  DESIRED  ON  THE  LAST  CYCLE 

q************************************************ 

I F ( NCYCLE . EQ . 1 . AND . STAT . EQ . 1 ) THEN 

q**************************************** 

C  CALCULATION  OF  V  AND  DW/DZ  AT 
C  THE  UPPER  BOUNDARY  FOR  TIME  STEP  N+l . 

q**************************************** 

DO  480  I-1.MP1 

VTAX ( I ) =VVEL1*C0S ( TPI *Z ( I ) /ALV1 ) +VVEL2*C0S (TPI*Z ( I ) /ALV2 ) 
DWDZ  ( I )  =TP  I  *  ( WVEL 1 *COS ( TP I *Z ( I )  /ALW1 )  /ALW1  1-WVEL2* 

$COS ( TP I *  Z ( I ) /ALW2 ) /ALW2 ) 

480  CONTINUE 

CALL  PRESD  ( PS  I  ,  ZETA  ,  VTAX ,  WTAX ,  DVDZ  .  DWDZ  , 

$VBEF , I ERROR , DEVMAX ) 

IF  (I  ERROR.  (IT.  0)  GO  TO  58 

q**************************************** 

C  CALCULATION  OF  DU/DZ  AT 

C  THE  UPPER  BOUNDARY  FOR  TIME  STEP  N+l . 

(.**************************************** 


DO  490  1=1. MP1 

DUDZ ( I )* -TPI* ( UVEL l*SIN(TPI*Z ( I ) /ALU1 ) /ALU1+UVEL2* 

$S IN ( TP I *Z ( I ) /ALU2 ) /ALU2 ) 

490  CONTINUE 

I F { NCYCLE . EQ . 1 . AND . N I NT ( FLOAT ( NCOUNT ) *DTE*1 00 ) . EQ . N I NT ( TF2  * 1 00 ) ) 
$NSTATP=1 
NC=NC+1 

CALL  STATIS ( PS I , ZETA . UCOM , DUDZ , VTAX , DVDZ , WTAX , DWDZ , 

$UGR , WGR , NC , NSTATP , I FLAG) 

END  IF 

IF(NINT( (FI.OAT(NCOUNT)*DTE*100) ) .NE  NINT(TP2*100) )GOTO  66 
£*************************************!(:************** 

C****  AT  THE  END  OF  EACH  CYCLE  CALCULATE  NEW  U  INPUTS 
C****  AND  OUTPUT  RESULTS 

(.***************************************************** 

DO  500  J=1 , NP1 

UB ( J ) =USAV( J ) *CHVEL/ ( FLOAT (M ) *NI NT ( TP2/DTE ) ) 

500  CONTINUE 

UCOUTT=YPLUS ( 2 ) +PEFF ( 2 ) *YPLUS ( 2 ) **2/2 . 

WRITE ( 6 , 1090 ) YPLUS ( 2 ) ,  UB  ( 2) 

WRITE(6,1100) YPLUS ( 2 ) , UCOUTT 
RATIO=UB ( 2 ) /UCOUTT 
WRITE (6, 1110)YPLUS(2) .RATIO 
UBNEW=UB ( NP 1 ) /RAT I 0 
ULO=UL*CHVEL 

WRITE(6, 1130)ULO,UB(NP1) .UBNEW, RATIO 

0PEN(33  ,FII.E=  '  :  HOSTCHAR : DRA3 :  [240016.  APSTOR ] UABO .  DAT '  , 

$STATUS" ' NEW ' , FORM= ' FORMATTED '  ) 

DO  560  Jal.NPl 

WR ITK ( 33, 1080) YPLUS (J) ,UB(J) 

UB2  (,T )  =  (UB ( J ) /RATIO) **2 
560  CONTINUE 
CLOSE (33) 

OPEN (32, FILE® ' : HOSTCHAR :I)RA3 : [240016 . APSTOR] UBOO . DAT ' , 

$STATUS= ' NEW ' , FORM® ' FORMATTED ' ) 

CALL  PARBL  (UB2 , 1  ,  STEP ,  NP.l ,  AOUT ,  I  ERROR ) 

PPLUSO =PEFFO/ ( 1 - ( CFD2*A0UT/Y0UT ) ) 

KP=CFD2**1 . 5*PPLUS0*1 . E06 

WRITE ( 6 , 1420 ) CYCLE , PPLUSO , KP 

WR  I TE  ( 32  ,  .1 1 20 )  UBNEW ,  RATIO ,  NCYCLE ,  PPLUSO ,  KP 

CLOSE (32) 

OPEN (31, FILE® ' : HOST : DRA3 : [240016. APSTOR]PZUO. DAT, 

$LE =50000 , SI=13 , SB=8192 , FIL=S , RE®V , FM=U , BL0CKS=2 ' , STATUS® ' NEW ' ) 

DO  520  1=1, MP1 
DO  520  J=1 , NP1 

520  ZETA1 (I , J)=PSI (I , J)*CHVEL*CHLEN/(2*LAM*TAU0SR) 

WRITE (31)  ZETA1 
DO  530  1=1, MP1 
DO  530  .J=l ,  NP1 

530  ZETA1 ( I , J)=ZETA ( I , J ) *CHVEL*2*LAM/ (CHLEN*TAUOSR ) 

WRITE (31)  ZETA1 
DO  540  1=1, MP1 
DO  540  .1=1.  NP1 

540  ZETA1  ( I ,  J)  =UCOM ( I ,  J ) *CHVEI- 
WR I TE ( 3 1 )  ZETA1 
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CLOSE (31) 

IF(NINT( (FLOAT (NCOUNT ) *DTE*100 ) ) . EQ . NINT(TP2*100) )NC0UNT=0 

I F ( C YCLE . EQ . N I NT ( I NDEXM ) ) GOTO  62 

IF (NCYCLE . EQ . 1 )GOTO  62 

IF  (ABS(1  -RATIO)  .  LE .  0 . 001  )NCYCLE==1 

IF (NCYCLE . EQ . 1 )E=F INALE 

I F ( ABS ( 1 -RAT I 0 ) . LE . RAT I 02 . AND . NC YCLE . NE . 1 ) E =E2 
66  CONTINUE 

£**************************************** 

C****  CALCULATE  THE  TEMPORAL  PART  OF 
c****  THE  UPPER  BOUNDARY  CONDITIONS 

Q* *************************************** 

VPRIN1  =WEL1 
VPRIN2=WEL2 

TSTEP =PLOAT ( NCOUNT ) *DTE f DTE 
TIME.1=TPI*TSTEP/TP1 
TIME2=TPI*TSTEP/TP2 
UVEL1=CU1*COS(TIME1+THETIJ1*PI/180) 

UVEL2=CU2*C0S (TIME2+THETU2 *P 1/180) 

VVEL1 =CV1*C0S (TIME1+THETV1 *PI/180 ) 

VVEL2=CV2*COS (TIME2+THETV2*PI/ 180) 

WVEL1=-CW1*C0S  (TIME1+THETW1  *PI/1 80 ) 
WVEL2=CW2*C0S(TIME2+THETW2*PI/180) 

IF ( NCOUNT. F.Q.O)GOTO  70 
GO  TO  74 

C* ****************************** 

C  END  OF  THIS  RUN 

£******************************* 

62  DT=DT/ACON 
DTS=DTS/ACON 

NIPTS  =FLOAT( ITERS ) /FLOAT (NTOT) 

WR I TE ( 6 . 1 1 60 ) NTOT , I TERS .NIPTS, DT , DTS 
I F ( NSTATP . NE . 1 ) GOTO  78 

WRITE ( 6 , 1 170 )  NC , NCTOT . SXBAR , SZBARA , SXSB , 
$SZSBA,UINTY0(NP1) .VINTYO(NPl) .WINTYO(NPl) 

WRITE (6, 1180) 

WRITE(6, 1200)  (UAVE(L) .L-l.NPl) 

WRITE (6,1190) 

WRITE (6, 1200)  ( VAVE(L) , L-l , NP1 ) 

WR  I TE ( 6 , 1 2 1 0 ) 

WRITE(6, 1200)  ( WAVE (L) , L=1 , NP1 ) 

WRITE (6, 1220) 

WRITE (6, 1200)  (UINTYO(L) ,L=1,NP1) 

WRITE ( 6 , 1230 ) 

WRITE(6, 1200)  (VINTYO(L) ,L=1 ,NP1) 

WRITE (6 , 1240) 

WRITE(6 , 1200)  ( WINTYO(L) , L-l , NP1 ) 

GO  TO  78 

£*********************** 

C****  ERROR  MESSAGES 
^*********************** 

38  WRITE (6, 1250)  NCOUNT 
ITERS-ITERS+ITER 
IFL=1 
GO  TO  62 


26  WRITE {6, 1260)  NCOUNT, ITER, IERROR 
ITERS=ITERS+ITER 
IFL=1 
60  TO  62 

22  WRITE(6, 1270)  NCOUNT , ITER , I ER 
ITERS= I TERS+ I TER 
IFL=1 
GO  TO  62 

46  WRITK(6, 1280)  NCOUNT, IER 
IFL=1 
GO  TO  62 

58  WRITE (6, 1290)  NCOUNT , IERROR 
IPL  =  1 
GO  TO  62 

78  STOP 

1000  FORMAT (IX,  'MAXIMUM  AMOUNT  OF  TIME=  '  , F8 . 2 ) 

1010  F0RMAT(1X, 'UINBC=  ' , F6 . 4 , 3X , ' VINBC=  ' , F6 . 4 , 3X , ' WINBC=  ' , F6 
1020  FORMAT ( 1 X, 'CU1=  ',F6.4,'  CU2=  ',F6.4,/, 

$1X,'CV1=  ' , F6 . 4 , '  CV2=  1 , F6 . 4 , / , 

$1X , 1 CW1  =  ' , F6 . 4 , '  CW2=  ' , F6 . 4 ) 

1030  FORMAT ( IX, 'DRAG-C0EFFICIENT/2=  ' , F6 . 5 , / , 

$1X , ' FOR  THIS  RUN,  Y0+=  '.F6.3,/, 

$1X, 'EFFECTIVE  PRESSURE  GRADIENT  AT  Y0+=  ',F7.5) 

1040  FORMAT ( 1 X, 'LAM1=  ',F7.3,'  LAM2=  '.F7.3,/, 

$1X , ' TP1=  ' , F7 . 3 , '  TP2=  ' , F8 . 3 ) 

1 050  FORMAT ( IX , F5 . 2 , 3X , F7 . 5 , 3X , F7 . 5 , 3X , F6 . 3 ) 

1060  FORMAT (IX, 'CHVEL=  \F5.3,'  CHLEN=  ',F4.0,'  RE=  '.F5.1) 

1070  FORMAT (IX. 'PWALL=  ' , F6 . 4 , 2X , ' AU20=  1 ,F6.0,2X, 'UL=' ,F5.2) 
1080  FORMAT ( IX , F8 . 3 , 3X , F8 . 4 ) 

1090  FORMAT (IX, 'AVERAGE  VELOCITY  AT  Y+=  ',F7.4,'  IS  '.F7.4) 

1100  FORMAT ( IX, ' COUETTE  VELOCITY  AT  Y+=  ',F7.4,'  IS  ’,F7.4) 

1110  FORMAT( IX, 'RATIO  AVERAGE  TO  COUTTE  AT  Y+=  ',F7.4,'  IS  ',F7 
1120  FORMAT( IX, F8 . 4 , 2X , F7 . 4 , 2X , 12 , 2X , F8 . 5 , 2X, F7 . 3 ) 

1130  FORMAT (IX, 'INPUT  UBAR= ' , F7 . 4 , IX , ' OUTPUT  UBAR= ' , F7 . 4 , IX , 

$ ' UBAR  NEW= ' , F7 . 4 , IX , ' RATIO=  ’.F7.4) 

1140  FORMAT ( IX, //, '  BEGINNING  OF  CYCLE  #  ’,12) 

1150  FORMAT( IX, '  CYCLE=  ' , 12 . 3X , '  TOTAL  TIME  STEPS=  ’,F6.0) 

1160  FORMAT(/, IX. 'TOTAL  NUMBER  OF  STEPS=  ',15,/, 

$1X, 'TOTAL  NUMBER  OF  ITERATIONS=  ',16,/, 

$1X, 'AVERAGE  #  OF  ITERATIONS  PER  TIME  STEP=  '.F5.2,/, 

$1X, 'TIME  STEP=  ' ,F7.4,/, 

$1X, 'TOTAL  TIME  ELAPSED=  ',F8.2) 

1170  FORMAT (IX, 'NUMBER  OF  POINTS  FOR  STAT.CALC.  IN  THIS  RUN=  ', 
$/, IX, 'TOTAL  NUMBER  OF  POINTS  FOR  STAT.CALC.=  ',15, /.IX, 

$ ' STREAMWISE  VELOCITY  GRADIENT  AT  THE  WALL=  ',F6.4,/, 

$1X, 'SPANWISE  VELOCITY  GRADIENT  AT  THE  WALL-  \F6.4,/,1X, 

$' STREAMWISE  WALL  INTENSITY-  ',F6.4,/,1X, 

$' SPANWISE  WALL  INTENSITY=  ',F6.4,/,1X, 

$' STREAMWISE  INTENSITY  AT  Y0=  ',F6.4,/,1X, 

$ ' NORMAL  INTENSITY  AT  Y0=  '.F6.4,/,1X, 

$ '  SPANWISE  INTENSITY  AT  Y0=  \F6.4,/) 

1180  FORMAT (5X, 'AVERAGE  VELOCITY  DISTRIBUTIONS './. 5X , 

$ ' STREAMWISE  VELOCITY') 

1190  FORMAT (/,5X, 'NORMAL  VELOCITY') 

1200  FORMAT ( IX , 7E12 . 5 ) 


1210  FORMAT (/, 5X, 'SPANWISE  VELOCITY') 

1220  FORMAT (/,5X, 'VELOCITY  R.M.S.  VALUES  IN  WALL  PARAMETERS', 

$/,5X, 'STREAMWISE  R.M.S.  VALUES') 

1230  FORMAT (/,5X, 'NORMAL  R.M.S.  VALUES') 

1240  F0RMAT(/,5X, 'SPANWISE  R.M.S.  VALUES') 

1250  FORMAT (2X, 'ADI  SCHEME  DID  NOT  CONVERGE  AT  NC0UNT=  ',15,///) 

1260  FORMAT (5X, 'ERROR  DETECTED  WHEN  CALLING  HWSCRT  FOR  THE  SOLUTION', 
$'  OF  THE  PSI  FIELD ' , // , 5X , ' NCOUNT= ' , 13 , 2X , ' ITER= ' , 12 , 2X, ' IERROR= 

$15,///) 

1270  FORMAT (5X, 'ERROR  DETECTED  WHEN  CALLING  LEQT1B  FOR  THE  V-W  FIELD' 
$'  ADI -SOLVER ' ,//,5X, ' NCOUNT= ' , 13, 2X, ' ITER= ' , 12, 2X, ' IER=' , 15,///) 
1280  FORMAT (5X, 'ERROR  DETECTED  WHEN  CALLING  LEQT1B  FOR  THE  U-FIELD ' , 
$'  ADI -SOLVER ' ,//,5X, 'NCOUNT=  ' , 13 , 2X , ' IER=  ',15,///) 

1290  FORMAT (5X, 'ERROR  DETECTED  WHEN  CALLING  HWSCRT  FOR  THE  SOLUTION', 
$'  OF  THE  PIESH  FIELD ',//, 5X ,' NCOUNT=  ' , 13 , 2X, ' IERROR=  ',15,///) 
1300  FORMAT (IX, 'SHEAR  STRESS  AT  Y0+=  ',F5.3,/, 

$  IX, 'REYNOLDS  STRESS  AT  Y0*-=  '  ,  F5 . 3  ,  /  , 

$1X, 'DUDY  AT  Y0+=  ',F5.3,/, 

$1X,'UV  CORRELATION  COEFFICIENT  AT  Y0+=  '.F5.3) 

1310  FORMAT (IX, 'TIME  STEP  IN  +  UNITS=  ' , F4 . 1 ,  / 

$ , IX, 'ADI  ERROR  LIMIT=  '.E12.1) 

1320  FORMAT( IX, 'RATIO  AT  WHICH  INTERMEDIATE  E  IS  USED=  ' , F5 . 3 , / 

$, IX, ' INTERMEDIATE  ADI  ERROR  LIMIT=  '.K12.1,/ 

$, IX, 'FINAL  CYCLES  ADI  ERROR  LIMIT=  '.E12.1) 

1330  F0RMAT(1X, 'PSI  OUTPUT  STEP  INCREMENT^  ' , F4 . 1 ) 

1340  FORMAT( IX, ' U1NP0=  ' , F6 . 4 , '  VINPO=  ',F6.5,'  WINPO=  ' , F6 . 4 ) 

1350  FORMAT  { IX ,  '  Ul=  ',F6.4,'  IJ2=  ',F6.4,/, 

$1X,'V1=  ' , F6 . 4 , '  V2=  ' , F6 . 4 , / , 

$1X, 'Wl=  '  ,F6.4,  '  W2=  ' , F6 . 4 ) 

1360  FORMAT ( 1 X, 'THETU1=  ',F4.0,'  THETU2=  ',F4.0,/ 

$, IX, 'THETV1=  ' , F4 . 0 , '  THETV2=  '.F4.0,/ 

$ , IX , ' THETW1=  ' , F4 . 0 , '  THETW2=  \F4.0) 

1370  FORMAT( IX, 'SECOND  PERIOD  MULTIPLE  OF  THE  FIRST=  ',F2.0,/ 

$, IX, 'SECOND  WAVELENGTH  MULTIPLE  OF  THE  FIRST=  '.F2.0) 

1380  F0RMAT(1X, 'EDGE  OF  VISCOUS  SUBLAYER  FOR  P+=0  =  ’,F3.0) 

1390  FORMAT (IX, ' INPUT  P+=  ' , F7 . 5 , '  INPUT  APLUS=  ',F7.4, 

$'  INPUT  AU20=  ' ,F6.0) 

1400  FORMAT (IX, 'MAX.  *  OF  ITERATIONS  PER  TIME  STEP=  ',13,/ 

$ , IX , ' MAX .  #  OF  CYCLES^  ',F8.2) 

1410  F0RMAT(1X, 'EU1=  ' , F4 . 2 , '  EV1=  ' , F4 . 2 , '  EW1=  ' , F4 . 2 ) 

1420  F0RMAT(1X, 'END  OF  CYCLE  # ' , 12 , '  PWALL- ' , F8 . 5 , '  K-',F7.3) 

1430  FORMAT (IX, '  PSI  INPUT  STEP  INCREMENT= ' , F4 . 1 ) 

1440  FORMAT ( IX, '  UCOM  OUTPUT  STEP  INCREMENT= ' , F4 . 1 ) 

1450  FORMAT (IX, 1  UCOM  INPUT  STEP  I NCREMENT = ' , F4 . 1 ) 

END 


SUBROUTINE  PRESD ( PSI , ZETA . VTAX , WTAX , DVDZ , DWDZ , 
$ VBEF , I ERROR , DEVMAX ) 

C****  THIS  VERSION  SETUP  FOR  101,51 
C 

C  THIS  SUBROUTINE  CALCULATES  THE  PRESSURE  FIELD 
C  FOR  ONE  CELL  OF  THE  MODEL  FLOW 
C 


DIMENSION  PSI (101 ,51) , ZETA( 101 , 51 ) , VTAX ( 101 ) , WTAX ( 1 01 ) ,Y(51) 
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DIMENSION  PIESH( 101,51), BDA (51 ) ,BDB(51) ,BDC(101) 

DIMENSION  BDD( 101 ) , VBEF (101 ) 

DIMENSION  WORK ( 5000 ) , RHS ( 101 , 51 ) .DVDZ(lOl) ,DWDZ(101) . Z ( 101 ) 

C0MM0N/AREA2/A,  B ,  C  ,  I) ,  IDIMF 

C0MM0N/AREA3/M . MP1 , MM1 , MM2 , N , NPl , NM1 , NM2 

C0MM0N/AREA4 /WORK , BDA , BDB 

C0MM0N/AREA6/RE , DY . DZ , DT , TDY , TDZ , DY2 , DZ2 

COMMON/AREA 1 0 /Y, Z , KSTAT , DTE 

COMMON/ONE/PIESH 

COMMON/TWO/RHS 

SAVE 

TWDELZ=2 . /DZ 
TWDELY=2./DY 
DO  10  1=2, M 

BDC(  I  )  =  (--l .  /RE)*  (ZETA(  1  +  1,1  )-ZETA(  1-1,1)  )/TDZ 
10  CONTINUE 

BDC ( 1 ) = ( -1 . /RE ) * ( -3 . *ZETA ( 1 , 1 ) +4 . *ZETA ( 2 , 1 ) -ZETA ( 3 , 1 ) ) /TDZ 
BDC ( MP1 ) = (  1 . /RE ) * (ZETA (MM1 , 1 ) -4 . *ZETA ( M . 1 ) +3 . *ZETA (MP 1 , 1 ) ) /TDZ 
DO  20  J-l. NPl 
BDA  ( J )  =0 . 

BDB ( J ) =0 . 

20  CONTINUE 

DO  30  1=2, M 

BDD(I)  =  (  -1  ,/RE)*(ZETA(I+l  ,  NPl) -ZETA  (I  -1  ,NP1 )  ) /TDZ- (VTAX (  I  )- 
SVBEF  ( I ) )  /DTE-  (  -Vl'AX  ( I )  *DWDZ  ( I )  + WTAX ( I )  *DVDZ  ( I ) ) 

30  CONTINUE 

BDD  (1)  =  (~1./RE)*(~3.  *ZETA( 1 ,  NP.l )  +4  .  *ZETA  ( 2  ,  NPl )  --ZETA(  3  ,  NPl  )  )/TDZ- 
$  ( VTAX  ( 1 )  -  VBEF  ( 1 ) )  /DTE  -  (  -VTAX  ( 1 )  *DWDZ  ( 1 )  4- WTAX  ( 1 )  *DVDZ  ( 1 ) ) 

BDD (MP1 )= ( -1 . /RE ) * ( ZETA(MM1 , NPl ) -4 . *ZETA (M , NPl ) +3 . *ZETA(MP1 , NPl ) ) 
$/TDZ-  ( VTAX ( MP1 ) -  VBEF ( MP 1 ) ) /DTE  -  ( -VTAX ( MP 1 ) *DWDZ ( MP1 ) +WTAX ( MP 1 ) * 
$DVDZ  (MP.1 ) ) 

DO  40  I =2 , M 
DO  50  .1=2, N 

PIESH( I , J )=2 . * ( (PSI ( I , ,7+1 )  -2 . *PSI ( I , J)+PSI (I , J-l ) )* 

$(  PS  1(1  +  1, J)-2.*PS  1(1,  J)t-PSI(I-l,J))  /  (DY2*DZ2 )  --  ( ( PSI  ( 1  +  1 , 

$.7+1)  PSI ( 1+1 . J-l ) -PSI ( I- 1 ,J+1)+PSI(I-1, J-1))/(TDY*TDZ))**2) 

50  CONTINUE 
40  CONTINUE 

DO  60  I  1.MP1 
PIESH( I , 1 )=0 . 

60  CONTINUE 

DO  70  J=2 . N 

PIESH( 1 , J) =-2 . * ( (-3 . * (PSI ( 1 , J+l ) -PSI (1,J-1))+4.*(PSI(2,J+1)- 
$PS I ( 2 , J  -1 ) )  - ( PSI ( 3 , J+l ) -PSI ( 3 , J  -l ) ) ) / (TDY*TDZ ) ) **2 
PIESH(MP1 , J)=-2.*( ( (PSI (MM1 , J+l )-PSI (MM1 , J- 1 ) ) -4 . * (PSI (M, 

$.7+1 )  -PSI  (M.J-1 ) )  +3  .  *  (PSI  (MP1 ,  J+l )  -PSI  (MP1 ,  J-l ) ) )/ 

$(TDY*TDZ) )**2 
70  CONTINUE 

DO  80  1=1, MP1 

PIESH ( I , NPl )=-2 . * (DWDZ ( I ) **2+DVDZ ( I )* (ZETA( I , NPl )+DVDZ ( I ) ) ) 

80  CONTINUE 

DO  310  1=1, MP1 
DO  320  J=1 , NPl 
RHS( I , J)=PIESH( I , J) 

320  CONTINUE 


310  CONTINUE 

DO  311  J=1  ,NP1 

RHS  ( 1 , J ) *PIESH ( 1 , J )  ^DA  ( .J )  *TMDELZ 
RHS ( MP1 , J ) =PI ESH (HP1 , J ) -BOB ( J ) *TWDELZ 

311  CONTINUE 

DO  312  1=1, MP1 

RHS { I , 1 ) =P I ESH ( I , 1 ) f BDC ( I ) *TWDELY 
RHS  ( I  .  NP1 )  =PTF.SH  ( I , NP1 )  -BDD  ( I )  *TWDELY 

312  CONTINUE 

CALL  HWSCRT ( A , B , M , 3 , BDA , BDB , C , D , N , 3 , BDC , BDD , 0 . , PIESH , IDIMF , 
SPERTRB, I ERROR, WORK) 

RHSAVE=0 . 

DO  90  I=1,MP1 

DO  100  .1=1 ,NP1 

RHSAVE  =RHSAVE + ABS ( RHS ( I , J ) ) 

100  CONTINUE 
90  CONTINUE 

RHSAVE=RHSAVE/FL0AT(MP1*NP1 ) 

DEVMAX=ABS ( PERTRB ) *  100 . /RHSAVE 
PCON= (PIESH (13,1) +PIESH ( 14 , 1 ) ) /2 . 

DO  313  1=1, MP1 
DO  314  J=1 , NP1 
PIESH ( I . J ) =PIESH ( I , J )  PCON 
314  CONTINUE 

313  CONTINUE 
RETURN 
END 


SUBROUTINE  VWSOL ( PSI , PSI 1 , ZETA , ZETA1 , ZETA2 , IER) 

C****  this  VERSION  SETUP  FOR  51,101 
C 

C  THIS  SUBROUTINE  CALCULATES  THE  VORTICITY 

C  FIELD  USING  A  CONSERVATIVE 

C  FINITE  DIFFERENCE  SCHEME  AND  *  LEQT1B  * 

C  FOR  THE  INVERSION  OF  THE  RESULTING 

C  TR I DIAGONAL  MATRICES 

C  BOUNDARY  CONDITION  AT  Y=YO  ZETA=ZKTAO ( Z , T) 

C 

DIMENSION  PSI (51,101 ) , PSI 1 (51 , 101 ) , ZETA (51 , 101 ) 

DIMENSION  ZETA1 (51 , 101 ) , ZETA2 (51 , 101 ) , P(99 , 3) ,Q(99) ,XL(198) 

COMMON/AREAl /R , FOVRE , F0VRE1 , BETAP , BETAM , GAMAP , GAMAM 

C0MM0N/AREA3/M , MP1 , MM1 , MM2 , N , NP1 , NM1 . NM2 

COMMON/SCRA/P , Q , XL 

SAVE 

ND  -MM1 

IF(NM1 . GT.MM1 )ND=NM1 
DO  40  J=2,N 
DO  30  K  1.MM1 

PSM1DJ=(PSI(K,  J+.1)-PSI(K,J-1)+PSI1(K,  .7+1  )-PSIl  (K  ,  J-l )  )*0. 5 
PSPlDJ=(PSI(Kf2,  J  +  l)-PSI(K+2,  J  -1)*-PSI1(K  +  2,J+1)- 
$PSI 1 (K+2 , J-l ) ) *0 . 5 

PSM1DI= (PSI (K+2 , J- 1 ) -PSI (K , J-l ) +PSI1 (K+2 , J~1 ) -PSI 1 (K , J-l ) ) *0 . 5 
PSP1DI  =  (PSI(K  +  2,J+1)  -PSI  (K ,  J+l )  f-PSI  1  (K+-2,.I+1)-PSI1(K,J+1))*0.5 
P(K, 1 )=R*PSM1DJ+F0VRE 


P(K.3)=-R*PSPlDJfF0VRE 
P (K , 2 )=-BETAP 

Q(K )  =  (R*PSM10I  --F0VRE.1 )  *ZETA(K+ 1 ,  J-l ) +GAMAM*ZETA (K+l  ,  .7 )  - 
$(R*PSP1DI  +F0VRK1 )*ZETA(K+1 ,  J+l ) 

30  CONTINUE 

Q  ( 1 )  =Q  ( 1 )  -P  ( 1 , 1 )  *Z15TA1  ( 1 ,  J ) 

Q(MM1 )=Q(MM1 )-P(MMl , 3)*ZETA1 (MP1 , J) 

P(1.1)=0. 

P(MMl , 3 ) =0 . 

CALL  LEQT1  B(P, MM.l ,  1 , 1 , ND ,  Q,  1 , ND ,  0 ,  XL  ,  IER) 

IF(IER.EQ. 129)  GO  TO  136 

DO  50  1  =  2, M 

IA:=I-1 

ZETA1 ( I , J)=Q( IA) 

50  CONTINUE 
40  CONTINUE 

DO  60  I  =2  ,M 
DO  70  K=1 , NM1 

PSM1DI  =  (PSI ( 1  +  1 , K) -PSI (1-1, K)+PS 11(1  +  1, K)  PSI1 ( 1-1 ,K) ) *0 . 5 
PSP  ID  I  "(PS  I  ( 1  +  1  ,K»-2)  -PSI  ( I--1  ,K»-2)  fPSIl  ( I  +  l,Kf2)- 
$PSIl(I--l,K+2))*0.5 

PSM1DJ=(PSI(I- l,K+2) -PSI (I-1,K)+PSI 1(1-1, K+2) -PSI 1(1-1 ,K) ) *0.5 

PSP1D.J-  (PS  1(1  +  1, K«-2)  -PSI  ( I  +1 ,  K)  <-PSI  1(1  +  1, K  +  2)  -PSI  1(I  +  1,K))*0.5 
P(K,  1  )--R*PSMlI)I+FOVREl 
P(K,3)=R*PSP1DUF0VRE1 
P(K , 2 ) - -GAMAP 

Q (K )  =  - ( R*PSM1DJ +FOVRE ) *ZETA1 ( 1-1 ,K+1 ) +BETAM*ZETA1 ( I , K+l )  + 

$ (R*PSP1DJ -FOVRE ) *ZETA1 ( 1+ 1 , K+l ) 

70  CONTINUE 

Q(1)=Q(1)-P(1,1) *ZKTA2( 1,1) 

Q  (NM1 )  -Q  (NM1 )  P  (NM.l ,  3 )  *ZETA2  ( I ,  NP1 ) 

P(1,1)=0. 

P(NM1 ,3)=0. 

CALL  LEQT:1B(P,NM.1  , 1 , 1 . ND ,  Q ,  1 ,  ND ,  0  , XL  ,  IER) 

IF(IER.EQ. 129)  GO  TO  136 
DO  80  .7=2,  N 
JA=J -1 

ZETA2  ( I ,  J )  =Q  ( -7A ) 

80  CONTINUE 
60  CONTINUE 
136  RETURN 
END 


SUBROUTINE  USOI. (PSI ,  ZETA2  ,  UCOM , UTAX ,  IER) 
C****  THIS  VERSION  SETUP  FOR  51,101 
C 

C  THIS  SUBROUTINE  CALCULATES  THE  STREAMWISE 
C  VELOCITY  FIELD  USING  A  CONSERVATIVE 
C  FINITE  DIFFERENCE  SCHEME  AND  *  LEQT1B  * 

C  FOR  THE  INVERSION  OF  THE  RESULTING 

C  TRIDIAGONAL  MATRICES 

C  BOUNDARY  CONDITION  AT  Y=Y0  IS  U=IJO 
C 


DIMENSION  PSI (51, 101) , ZETA2 ( 51 , 101 ) , UCOM( 51 , 101 ) , UHAL ( 51 , 101 ) 


DIMENSION  P(99,3) ,Q(99) ,XL(198) ,UTAX(51) .ALPHA(lOl) 

COMMON/AREA1 /R , FOVRE , FOVRE1 , BETAP , BETAM , GAMAP , GAMAM 

C0MM0N/AREA3/M , MP1 , MM1 , MM2 , N , NP1 , NM1 , NM2 

C0MM0N/AREA5/CHVEI. .  CHLEN ,  ACON 

C0MM0N/AREA6/RE ,  ))Y , DZ , DT , TDY , TDZ , DY2 , DZ2 

COMMON/SCRA/P , Q , XL 

COMMON/ONE/UHAL 

COMMON/FIX1 /ALPHA 

SAVE 

ND=MM1 

IF(NM1 .GT.MM1 )ND=NM1 
DO  151  J=2 , N 
DO  162  K  --1.MM1 

PSM1DJ= (PSI (K , J+l ) -PSI ( K , J-l ) +ZETA2 (K , J+l ) - 
SZETA2  (K ,  J--1 ) )  *0 . 5 

PSP.1I)J=  ( PSI (K+2 , J+l )  -PSI  (K+2 , J-l  )  +  ZETA2  (K+2 , J+l ) ~ 
SZHTA2 (K+2  ,  J-l ) ) *0 . 5 

- - 

PSM1DI" ( PSI  (K  +2  ,  J-l )  -PSI  (K ,  J--1 ) ) 

PSP1DI- (PSI (K+2 , J+l ) -PSI (K, J+l ) ) 


P  ( K  ,  .1 )  =R*PSM1  D J+FOVRE 
P(K , 3 ) - -R*PSP1DJ + FOVRE 
P (K , 2 ) =-BETAP 

Q(K)=(R*PSM1DI~F0VRE1 )*UC0M(K+1 , J-l )+GAMAM*UCOM(K+l , J)- 
$(R*PSP1I)I  +F0VRE1 )  *IJC0M(K+1 ,  J+l )  +ALPHA(  J )  *4*DZ**2*CHLEN/ 
$CHVEL**2 

162  CONTINUE 

P(l,2)-P(l,2)+4.*P(l,l)/3. 

P(l,3)sP(l,3)-P(l,l)/3. 

P  ( MM.1 , 1 )  ~P  ( MM1  , 1 )  -P  ( MM.l ,  3 )  /3  . 

P(MM1 ,2) *P(MM1 , 2) +4 . *P(MM1 , 3)/3 . 

P(1,1)=0. 

P(MM1 , 3) =0 . 

CALL  LEQT1B(P,MM1 , 1 , 1 , ND , Q , 1 , ND , 0 , XL , IKR ) 

IP ( IER.EQ. 129)  GO  TO  136 
DO  163  1=2, M 
IA--I  1 

UHAL(I , J)=Q(IA) 

163  CONTINUE 
151  CONTINUE 

DO  194  J  =2  ,  N 

UHAL ( 1 , J ) = ( 4 . *UHAL ( 2 , J ) -UHAL ( 3 , J ) ) /3 . 

UHAL (MP1 , J ) = ( 4 . *UHAL ( M , J ) -UHAL (MM1 , J) )/3 . 

194  CONTINUE 

DO  164  1=2, M 
DO  165  K=1  ,  NM.l 

c - 

PSM1DI= ( ZETA2 ( I +1 , K ) -ZETA2 ( 1-1 , K ) ) 

PSP.1DI  =  ( ZETA2  ( I  +1 ,  K  +  2 )  -ZETA2  ( 1-1 ,  K+2 ) ) 

c - 

PSM1DJ=(PSI  ( I -1 ,  K+2 )  -PSI  ( 1-1 ,  K)  +ZETA2  ( I --1 ,  K+2 )  - 
$ZETA2 (II , K ) ) *0 . 5 

PS  PI  I)J=  (PSI  ( 1  +  1 ,  K+2 )  -PSI  ( 1  +  1 ,  K)  +ZETA2  ( 1  +  1 ,  K+2 )  -- 
$ZETA2(I+1,K))*0.5 


P(K,  1  )=-R*PSMlDI  t-FOVREl 
P(K , 3 )  =R*PSP.lDI+FOVRE.l 
P ( K , 2 ) =-GAMAP 

Q(K)=- ( R*PSM1DJ+F0VRE ) *UHAL ( 1-1 , K+ 1 ) +BETAM*UHAL ( I , K+l ) + 
$(R*PSP1DJ -FOVRK) *UHAL( 1+1 , K+l ) +ALPHA(K+1 ) *4*DZ**2*CHLEN/CHVEL* 

165  CONTINUE 

Q ( 1 ) =Q( 1 ) -P( 1 , 1 ) *UCOM( 1,1) 

Q ( NMl ) =Q (NMl ) - P ( NMl , 3 ) *UTAX ( I ) 

P(1,1)=0. 

P(NM1 , 3 ) =0 . 

CALL  LEQT1B ( P , NM1 , 1 , 1 , ND , Q , 1 , ND , 0 , XL , IER ) 

IF(IER.EQ.  129)  GO  TO  136 
DO  166  J=2 , N 
JA=J  1 

UCOM(  I ,  J )  =Q(.TA) 

166  CONTINUE 
164  CONTINUE 

DO  718  1=2, M 

UCOM ( I , NP1 ) =UTAX ( I ) 

718  CONTINUE 

DO  719  1=1, NP1 

UCOM ( 1 . J ) « ( 4 . *UCOM (2 , J) -UCOM (3, J) )/3. 

UC0M(MP1 , J)= (4 . *UCOM(M , J ) -UC0M(MM1 , J ) )/3 . 

719  CONTINUE 
136  RETURN 

END 


SUBROUT I NE  VAND (M,N, YOUT , PEFFO , CFD2 , PPLUS , AU20F 
& , APLUS , UB . PEFFM , Y1 , AU2 1 ) 

DIMENSION  UB(101) .PEFFM (101 ) ,U(201 ) ,AU2(201 ) ,U2(201 ) ,SS(201 ) 
DIMENSION  PEFF ( 201 ) , Y( 201 ) ,FX(201) ,Y1( 101) ,AU21( 101) 

REAL  KA 
SS1  =  1 
MP1=M+1 
NP1 =N+1 
N2P1=2*N+1 
KA=0 . 44 

DYPLUS=YOUT/FLOAT ( 2*N ) 

AU20B=AU20F+ 15 
APLUS1=APLUS 
DO  2001  J=1 . N2P1 
Y  ( J )  =DYPLUS*  ( .7-1 ) 

2001  SS(J)=SS1 

DO  1005  KK=1 , 100 
DO  1000  K=1 , 100 
DO  500  J=1 , N2P1 

D  = 1 -EXP ( -Y ( J ) *SQRT ( SS ( J ) ) /APLUS ) 

FX(J)=2*SS(.T)/(1+SQRT(1+4*SS(J)*(KA*Y(J)*D)**2)) 

500  CONTINUE 

DO  2002  J=1 ,N2P1 
IF( J . EQ . 1 )AREA1=0 . 0 
IF ( J . EQ . 1 ) AREA2=0 . 0 

I F ( J . NE . 1 ) CALL  PARBL ( FX , 1 , DYPLUS , J , AREA1 , IRROR) 

U(.T)=AREA1 
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U2(J)=U(J)**2 

I F  ( J .  NE .  1 )  CALL  PARBL  ( U2 , 1 ,  DYPI.US ,  J ,  AREA2 , 1 RROR ) 
IF( J . EQ. 1 ) AU2 ( 1 ) =0 . 0 
IF(J.NE.  1 )  AU2  (.7 )  =AREA2 
I P ( J . EQ . 1 ) PEFF ( J ) -PPLUS 

IF ( J . NE . 1 ) PEFF ( J ) -PPLUS* ( 1 -CFD2*AREA2/Y ( J ) ) 

SS  ( J ) = 1  <-PEFF  ( J )  *Y  ( J ) 

I F ( J . EQ . N2P1 )AU20 -AREA2 
2002  CONTINUE 

IF(ABS(AU20-AU20B) .LE.10. )  GOTO  2005 
1000  AU20B=AU20 

2005  IF(ABS (AU20  -AU20F ) . LE . 0 . 1 )G0T0  2010 
1005  APLUS =APLUS*AU20F/AU20 
2010  CONTINUE 

PRINT* , 1  NEW  APLUS=' .APLUS 
00  800  J=1 ,NP1 
NBA~  ( J--1 )  *2  +  1 
AU21 (J)=AU2(NBA) 

Y1 ( J) =Y(NBA) 

PEFFM ( J ) =PEFF ( NBA ) 

UB ( J ) *U ( NBA ) 

800  CONTINUE 
RETURN 
END 


SUBROUT I NE  STAT I S ( PS I . ZETA . UCOM . DUDZ , VTAX . DVDZ . WTAX , DWDZ . 

$UGR , WGR , NC . NSTATP , I FLAG ) 

DIMENSION  PSI(101 ,51) , UCOM (101 , 51 ) , W( 101 , 51 ) , V( 101 . 51 ) 

DIMENSION  SU( 101 ) ,SU2( 101 ) , SU3( 101 ) ,SU4( 101) , SV ( 101 ) ,SV2( 101 ) 
DIMENSION  SV4  ( 101 )  ,SW(101)  ,SW2(101)  ,SW3(.101)  ,SW4(101)  ,SUV(101) 
DIMENSION  SVW(lOl) ,SUV2(101) ,SU2W(101) ,ZETA( 101 .51) 

DIMENSION  SZET ( 101 ) , SUW2 ( 101 ) 

DIMENSION  SV3 ( 101) ,SUW( 101) ,WGR(51) ,UGR(51) ,SP2(101) 

DIMENSION  SP( 101 ) ,SU2V( 101 ) ,SVW2(101 ) ,SUVW(101 ) , SV2W(101 ) , SUP (101 ) 
DIMENSION  SVP(lOl) ,SWP(101) .SPVY(lOl) .SPWZ(lOl) .SPUY(lOl) 

DIMENSION  SPVZ ( 10.1 ) .  SPWY(  101 ) ,  SUY2  ( 101 )  ,  SUZ2 ( 101 )  ,  SVY2  (101 ) 
DIMENSION  SVZ2 ( 101 ) , SPUZ ( 101 ) , SZET2 ( 101 ) 

DIMENSION  SWY2 ( 101 ) ,SWZ2(101) .SUYVY(lOl) .SUZVZ(lOl) .SUYWY(lOl) 
DIMENSION  SUZWZ ( 101) .SVYWY(lOl) .SVZWZ(lOl) , PIESH( 101 , 51 ) 

DIMENSION  DUDZ (51) , VTAX (51) , DVDZ (51) , WTAX (51) , DWDZ (51) 

COMMON/ONE/P I ESH 
COMMON/TWO/W 
COMMON /THREE/ V 

COMMON/FI VE/SU , SU2 , SU3 , SU4 , SV , SV2 , SV3 , SV4 , SW , SW2 , SW3 . SW4 , SUV , SUW , 
$SVW , SSX , SSX2 , SSZ , SSZ2 , SUV2 , SP . SU2V , SVW2 , SUVW , SV2W , SUP , SVP , SWP , 
$SPVY , SPWZ , SPUY , SPUZ . SPVZ . SPWY , SUY2 , SUZ2 , SVY2 , SVZ2 , SWY2 , SWZ2 , 

$SUYVY , SUZVZ , SUYWY . SUZWZ , SVYWY , SVZWZ , SP2 , SU2W , SUW 2 , SZET , SZET2 . 

$SSZA . SSZB , SSZ2A , SSZ2B 
C0MM0N/AREA3/M , MP1 , MM1 . MM2 , N , NP1 , NM1 , NM2 
COMMON /AREA6/RE , DY . DZ , DT , TDY . TDZ , DY2 , DZ2 
COMMON/ AREA7/NCT0T , SXBAR . SZBAR , SXSB , SZSB 
COMMON / ARE A9/NC B , NINDEX 
SAVE 

NCTOT=NCB+NC 
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TDZY-TDZ*TDY 

TDZ2=TDZ**2 

TDY2=TDY**2 

C 

C  CALCULATION  OF  V  AND  W  VELOCITY  FIELDS 
C 

DO  40  1=2. M 
DO  50  .J  =2 ,  N 

W(I,J)=(PSI(I,J+1) -PS I ( I , J-l ) )/TDY 
V(I,J)=-(PSI(I  +  1,J)-PSI(I  -1,J))/TDZ 
50  CONTINUE 
40  CONTINUE 

DO  60  1=1, MP1 
W( I . 1 ) =0. 

V(I.1)=0. 

W( I , NP1 ) =WTAX ( I ) 

V ( I , NP1 ) =VTAX ( I ) 

60  CONTINUE 

DO  70  J=2 , N 
W(1,J)=0. 

W(MP1 , J)=0. 

V(1,J)=--(PSI(2,.J)-PSI(1,  J))/DZ 
V(MP1 . J)=-(PSI(MP1 . J)-PSI(M.J) )/DZ 
70  CONTINUE 
C 

C  IF  NC=1  AND  NCB=0, STATISTICAL  STORAGE  ARRAYS 
C  ARE  ZEROED 

C  IF  NC>1  STATISTICAL  CALCULATIONS  BEGIN 
C 

IF(NC.GT.l)  GO  TO  888 
SSX=0. 

SSX2=0 

SSZ=0. 

SSZA=0 . 

SSZB=0 . 

SSZ2=0 . 

SSZ2A=0 . 

SSZ2B=0 . 

DO  810  J=1 , NP1 
SU(J)=0. 

SU2(J)=0. 

SU3 ( J ) =0 . 

SU4 ( J ) =0 . 

SV(J)=0. 

SV2 ( J ) =0 . 

SV3  (.7 )  =0 . 

SV4(J) -0. 

SW(J)=0. 

SW2 ( J ) =0 . 

SW3(J)=0. 

SW4 ( J) =0 . 

SUV(J)=0. 

SUW(J)=0. 

SVW(J)=0. 

SP(J)=0. 


SP2(J) =0 . 

SUV2 ( J ) =0 . 

SU2V( J ) =0 . 

SVW2 ( J ) =0 . 

SV2W ( J ) =0 . 

SUW2 ( J ) =0 . 

SU2W( J) =0. 

SUVW(J)=0. 

SUP ( J ) =0 . 

SVP(J)=0 

SWP(J)=0. 

SPVY( J)=0 . 

SPWZ(J)=0. 

SPUY (J ) =0 . 

SP!JZ(J)=0. 

SPVZ(J)=0. 

spwy(.;)-o. 

SUY2 ( J ) =0 . 

SUZ2(J)=0. 

SVY2  (,I)=0 . 

SVZ2 ( J) =0 . 

SWY2 ( J ) =0 . 

swz2(.;)  -o. 

SUYVY ( J ) =0 . 

SUZVZ(J)=0. 

SUYWY ( J ) =0 . 

SUZWZ(J)=0. 

SVYWY ( J)=0 . 

SVZWZ(J)=0. 

SZET  (.7 )  =0 
SZKT2 (J ) =0 . 

810  CONTINUE 

C  UPDATES  STATISTICAL  STORAGE  ARRAYS 
C 

888  CONTINUE 

DO  160  1=1, M 
SSX=SSXHIGR(I) 

SSX2-SSX2+UGR (I )  **2 
SSZ  =SSZ+WGR ( I ) 

SSZA=SSZA+ (4 . *W( I , 2 ) -W( I , 3 ) ) /TDY 

SSZB=SSZB+-  ( 18 .  *W(  1 , 2 )  -9 .  *W(  1 , 3)  +2 .  *W(  1 , 4 ) )/  (3  .  *TDY) 
SSZ2=SSZ2+WGR (I  )  **2 

SSZ2A=SSZ2A+ ( (4 . *W( I , 2 ) -W( I , 3) ) /TDY) **2 

SSZ2B=SSZ2B+( (18.*W(I,2) -9 . *W( I , 3 ) +2 . *W ( I , 4 ) ) / (3 . *TDY) ) **2 
160  CONTINUE 

DO  140  J=1 ,  NP.l 

DO  140  1=1, M 

SU( J)=SU(J ) +UCOM( I , J) 

SU2(J)=SU2(J) *UC0M(I,J)**2 
SU3(J)=SU3(J)+UC0M(I,J)**3 
SU4 ( J ) =SU4 ( J ) fUCOM ( I , J ) **4 
SV( J) =SV( J ) +V( I , J ) 

SV2( J)-SV2(J) fV(I , J)**2 
SV3(J)=SV3(J)+V(I , J)**3 
SV4  ( J )  =SV4  ( J )  t-V ( I ,  J )  * *4 
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SW(J)=SW(J)<-W(I,J) 

SW2  (,J)=SW2(  J  )+W(  I , J)**2 
SW3(J)=SW3(J)fW(I,J)**3 
SW4 ( J ) =SW4 ( J)+W( I , J ) **4 
SUV(J)  =SUV(J)  »-UC0M(  I ,  J)*V(  I ,  J) 

SUW(J)=SUW(J)+UCOM(I,J)*W(I, J) 

SVW(J)=SVW(J)  fV(I  ,.J)*W(I.  J) 

SP(.J)=SP(J)+PIESH(I ,  J) 

SP2(J)-SP2(J)«-PIESH(I.J)**2 

SUV2 ( J)=SUV2 ( J ) +UCOM( I ,J)*V(I , J) **2 

SU2V ( J ) =SU2V ( J ) f UCOM ( I . J ) *  *2*V( I . J ) 

SVW2 ( J ) =SVW2 ( J ) +V( I , J ) *W( I ,  J ) **2 
SV2W( J) =SV2W( J) ►V(I,J)**2*W(I,J) 

SUW2 ( J ) =SUW2 ( J ) +UCOM (I,J)*W(I,J)**2 
SU2W  ( )  -SU2W  ( J )  i-UCOM ( I ,  J )  * *2*W ( I ,  J ) 

SUVW ( J ) =SUVW ( J ) +UCOM ( I , J ) *V ( I , J ) *W ( I , J ) 

SUP( J ) =SUP( J) +UC0M( I , J) *PIESH ( I , J) 
SVP(J)-SVP(J)+V(I,J)*PIESH(I,J) 

SWP(J)=SWP(J)fW(I , J)*PIESH(I.J) 

SZET ( J ) -SZET ( J ) +ZETA ( I . J ) 

SZKT2 ( J) =SZET2 (J ) fZETA( I , J)**2 
140  CONTINUE 

DO  774  J=2 , N 
DO  774  1=2, M 

SPWZ ( J )=SPWZ ( J ) +PIESH( I ,J)*(W(I  +  1,J)-W(I-1,J))  /TDZ 
SPUZ(J)=SPUZ(J) fPIESH(I , J)*(UCOM(I+l , J) -UCOM(I  1 , J) )/TDZ 
SPVZ ( J)=SPVZ ( J ) +PIESH( I ,J)*(V(I+1 , J ) —V ( I  1, J) )/TDZ 
SUZ2  ( J )  =SUZ2  ( J )  +  ( ( UCOM ( I  +  1 ,  J )  -UCOM(  1-1 , .) ) )  /TDZ  )**2 
SVZ2 (J)=SVZ2( J) +((V(I+1,J)-V(I-1,J)) /TDZ ) **2 
SWZ2  ( J )  =SWZ2  (-J)  +  (  (W(I  +  1,J)-W(I  -l.J))/TDZ)**2 

SUZVZ ( J )=SUZVZ ( J)  +  (UCOM( 1  +  1 , J) -UCOM( I-  1 ,J))*(V(I  +  1,J)-V(I-1,J))/ 
$TDZ2 

SUZWZ(J)=SUZWZ(J)  +  (UCOM(I  +  l,J)-UCOM(I-  1 , J) )*(W(I  +  1 , J)-W(I -1 , J) )/ 

$1’DZ2 

SVZWZ ( J )=SVZWZ ( J) + (V( I+1,J)-V(I-1,J))*(W(I+1 , J)-W( 1-1 , J) ) /TDZ 2 

774  CONTINUE 

DO  776  1=1, M 

SPWZ (NP1 ) =SPWZ (NP1 ) f PIESH( I , NP1 ) *DWDZ ( I ) 

SPUZ (NP1 ) =SPUZ (NP1 ) +PIESH ( I , NP1 ) *DUDZ ( I ) 

SPVZ ( NP 1 ) =SPVZ ( NP 1 ) hP I ESH ( I , NP1 ) *DVDZ ( I ) 

SUZ2 ( NP1 ) =SUZ2 (NP1 ) +DUDZ ( I ) **2 
SVZ2  ( NP1 )  =SVZ2 (NP1 )  *DVI)Z  ( I )  **2 
SWZ2  (NP.l )  =SWZ2  (NP1 )  +DWDZ  ( I )  **2 
SUZVZ ( NP 1 ) =SUZ VZ ( NP 1 ) fDUDZ ( I ) *DVDZ ( I ) 

SUZWZ  (NP1 )  =SUZWZ  ( NP.1 )  +DUDZ  ( I )  *DWDZ  ( I ) 

SVZWZ (NP1 ) =SVZWZ(NP1 ) fDVDZ ( I ) *DWDZ ( I ) 

776  CONTINUE 

DO  994  J=2,N 

SPWZ ( J ) =SPWZ ( J ) -PIESH (MP1 , J ) * ( V(MP1 , J+l ) -V (MP1 , J-l ) ) /TDY 
SWZ2 ( J ) =SWZ2 ( J )+( (V(MP1 , J+l ) -V(MP1 , J~1 ) ) /TDY) **2 
994  CONTINUE 

DO  775  J=2 , N 

SPWZ ( J )  =SPWZ  ( J)-PIF,SH ( 1 ,  J) *  (V(  1 ,  J+l  )-V(.l ,  J- 1 ) ) /TDY 
SWZ2  (.J )  =SWZ2  ( J)  +  (  ( V(  1 ,  J+l )  ~V(  1 ,  J-l )  )  /TDY )  **2 

775  CONTINUE 


non 
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00  884  J=2,N 
DO  884  1=1 ,M 

SPVY(J ) =SPVY ( J )  +PIES1I(  I , J ) * ( V( I ,J+1)-V(I ,  J-l ) ) /TOY 
SPUY  ( J )  =SPUY  ( J )  4-P  I ESH  ( I ,  J)  *  ( UCOM  ( I ,  J+l )  -UCOM  ( I ,  J  - 1 ) ) /TDY 
SPWY ( J ) =SPWY ( J ) +PIESH( I , J ) * ( W( I , J+l )-W(I , J-l ) ) /TDY 
SIJY2 (J)=SUY2(J)+(  ( UCOM ( I ,  J  + 1 )  -UCOM ( I ,  J  - 1 ) ) /TOY )  * *2 
SVY2 ( J ) =SVY2 ( J ) + ( ( V( I , J+l )-V( I , J-l ) ) /TDY ) **2 
SWY2(J)=SWY2(J)+( (W(I, J  +  l) -W(I ,J -1))/TDY)**2 

SUYVY ( J ) =SUYVY ( J ) + ( UCOM( I , J+l ) -UCOM ( I , J-l ) )* ( V( I , J+l ) -V( I , J-l ) )/ 
$TDY2 

SUYWY (J ) =SUYWY ( J ) + (UCOM (I , J+l ) -UCOM( I , J- 1 ) ) * ( W( I ,  J  +  l ) -W( I ,J-1) )/ 
$TDY2 

SVYWY(J)=SVYWY(J)+(V(I, J+l )-V(I , J-l ) )* (W( I . J+l )-W( I . J-l ) )/TDY2 

884  CONTINUE 

DO  995  1=1 ,M 

SPVY  ( NP1 )  =SPVY  ( NP1 )  — PIESII ( I ,  NP1 )  *DWDZ  ( I ) 

SPUY ( 1 )=SPUY ( l ) +PIESH (1,1) *UGR ( I ) 

SPUY(NPl)=SPUY(NPl)fPIESH(I.NPl)*(3.*UCOM(I.NPl)-4.*UCOM(I,N)+ 
$UCOM ( I , NM1 ) ) /TDY 
SPWY  ( 1 )  =SPWY  ( 1 )  +PIESH  (1,1  )-*WGR  ( I ) 

SPWY  ( NP1 )  =SPWY  ( NP1 ) +PIESH ( I , NPI ) * ( ZETA  ( I ,  NP.1 )  +DVDZ  ( I ) ) 

SUY2 ( 1 ) =SUY2 ( 1 ) +UGR( I )  **2 

SUY2  ( NPI )  =SUY2 ( NPI ) + ( ( 3 .  *UCOM ( I , NP.1  )-4  .  *UCOM ( I  ,N)  +UCOM ( I , NM1 ) ) / 
$TDY)**2 

SVY2  (NP1  )=SVY2  (NP.l  )+DWDZ  ( I )  **2 
SWY2 ( 1 ) =SWY2 ( 1 ) +WGR ( I ) **2 

SWY2  (NP.l )  =SWY2  (NP1 )  +  ( ZETA  (I  ,  NP1 )  +DVDZ  ( I ) )  **2 

SUYVY ( NP1 ) = SUYVY (NPI ) ~ (3 . *UCOM ( I , NP1 )  -  4 . *UCOM( I , N ) +UCOM ( I , NM1 ) ) * 
SDWDZ ( I )/TDY 

SUYWY ( 1 ) =SUYWY ( 1 ) +UGR ( I ) *WGR ( I ) 

SUYWY (NPi ) =SUYWY ( NP1 ) + ( 3 . *UCOM ( I , NP1 ) -4 . *UCOM ( I , N) +UCOM ( I , NM1 ) ) * 
$ ( ZETA ( I , NPI ) fDVDZ ( I ) ) /TDY 
SVYWY ( NPI ) =SVYWY ( NPI ) -DWDZ ( I ) * ( ZETA ( I , NPI ) +DVDZ ( I ) ) 

995  CONTINUE 

IF (NSTATP. NE . 1 )  GOTO  777 
CALL  STCALC 
777  RETURN 
END 


SUBROUTINE  STCALC 

Qt ************ ************************t ************  *********** 

C****  SUBROUTINE  TO  CALCULATE  ALL  THE  STATISTICAL  QUANTITIES 
C****  IN  THE  KINETIC  ENERGY  AND  MEAN  KINETIC  ENERGY  EQUATIONS 

C  NOTE:  THIS  VERSION  IS  SETUP  FOR  51,101  GRID  POINTS 

C  NOTE:  THE  COMMON  STATEMENT  ONE  USES  SPACE  FROM  OTHER 

C  SUBROUTINES  AND  THUS  HAS  TO  BE  DIMENSIONED  CORRECTLY 

DUM  VARIABLE  IS  USED  FOR  THIS  PURPOSE.  IF  DIMENSIONED 
INCORRECTLY  SOME  MACHINES  WILL  GENERATE  NON-FATAL 
ERROR  MESSAGES. 

DIMENSION  UDUV(lOl) 

q ********************: ******************************************** 

DIMENSION  SU(101) ,SU2(101) , SU3 ( 101 ) , SU4 ( 101 ) ,SV(101) ,SV2(101) 
DIMENSION  SV4 ( 101 ) ,SW(101) ,SW2(101) ,SW3(101 ) ,SW4(101 ) ,SUV(101) 
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DIMENSION  SVW(lOl) ,SUV2(101) ,SU2W(101) ,SUW2(101) .SZET(lOl) 
DIMENSION  SV3 ( 101 ) , SUW ( 101 ) , SP2 ( 101 ) , PSB ( 101 ) , PINTW( 101 ) 

DIMENSION  SP(101) ,SU2V( 101 ) . SVW2 ( 101 ) , SUVW( 101 ) , SV2W( 101 ) , SUP( 101 ) 
DIMENSION  SVP(lOl) ,SWP(101) ,SPVY(101 ) ,SPWZ(101 ) ,SPUY(101) 

DIMENSION  SZET2 ( 101 ) , SPUZ ( 101 ) , SVZ2 ( 101 ) 

DIMENSION  SPVZ(lOl) ,SPWY(101) ,SUY2(101) ,SUZ2(101) ,SVY2(101) 
DIMENSION  SWY2 ( 101 ) , SWZ2 ( 101 ) , SUYVY ( 101 ) , SUZVZ ( 101 ) , SUYWY ( 101 ) 
DIMENSION  SUZWZ(lOl) ,SVYWY(101) ,SVZWZ(101) ,ZINTW(101) 

DIMENSION  VBAR(lOl) ,WBAR(101) , IJSU ( 101 ) ,VSB(101) ,WSB(101) ,UCB(101) 
DIMENSION  WCB  ( 101 ) ,  UFB  ( 101 ) ,  VFB  (101),WFB(101),  UVB  ( 101 )  ,  UWB  ( .101 ) 
DIMENSION  UINTL(lOl) ,VINTL(101) .WINTL(lOl) .UINTW(lOl) .VINTW(lOl) 
DIMENSION  USQ(IOO) ,VSQ(100) ,WSQ(100) ,UFL(100) ,VFL(100) .WFL(IOO) 
DIMENSION  UWCOR(IOO) .VWCOR(IOO) ,UVWALL( 101 ) ,UWWALL( 101 ) 

DIMENSION  UBAR(lOl) ,VCB(101) , DUBY( 101 ) , DVBY( 101 ) .DWBY(lOl) 
DIMENSION  VWB(lOl) ,WINTW(101) , UVCOR( 100) , VWWALL( 101 ) 

DIMENSION  PBAR ( 101 ) , U2VB (101 ) , VW2B( 101 ) , UVWB( 101 ) ,V2WB(101) 
DIMENSION  ZSB(lOl) .UPB(lOl) 

DIMENSION  VPB(lOl) .WPB(lOl) .PVYB(lOl) .PWZB(lOl) ,PUYB(101) 

DIMENSION  PVZB( 101 ) , PWYB( 101 ) ,UY2B( 101 ) , IJZ2B( 101 ) , VY2B( 101 ) 
DIMENSION  WY2B(  .101 )  , WZ2B( 101 )  ,UYVYB(101 )  ,UZVZB(101 )  ,UYWYB(101 ) 
DIMENSION  UZWZB ( 101 ) ,VYWYB(101) ,VZWZB(101) ,UV2B(101) ,ADU2(101) 
DIMENSION  PRU2 ( 101 ) , VZ2B( 101 ) , PUZB( 101 ) 

DIMENSION  TDIJ2 ( 101 ) ,GDU2(101) ,DISU2(101) ,ADV2(101) ,PRV2(101) 
DIMENSION  PDV2 ( 101 ) ,GDV2 (101 ) ,DISV2(101) , ADW2 ( 101 ) , PRW2 ( 101 ) 
DIMENSION  GDW2 (101 ) .DISW2 (101 ) , ADUV( 101 ) , PRUV( 101 ) ,TDUV( 101 ) 
DIMENSION  PDUV ( 101 ) , TDW2 ( 101 ) , TDV2 ( 101 ) 

DIMENSION  GDUV(lOl) ,DISUV{ 101 ) , ADUW( 101 ) , PRUW( 101) ,TDUW( 101) 
DIMENSION  DISUW(lOl) ,ADVW(101) .PRVW(lOl) .TDVW(lOl) ,PDVW(101) 
DIMENSION  GDVW(lOl) ,I)ISVW(101) ,UVU(101) .DUDU(lOl) ,UDU(101) 
DIMENSION  PMU2 ( 101 )  , PRW ( 101 ) , TRS ( 101 ) , TVS ( 101 ) ,DISM(101) 

DIMENSION  GDUW(lOl) ,PVZWY(101) 

C0MM0N/AREA3/M , MP1 ,MM1 ,MM2 , N , NP1 , NM1 , NM2 
C0MM0N/AREA5/CHVEL , CHLEN , ACON 
C0MM0N/AREA6/RE , DY , DZ , DT , TDY , TDZ , DY2 , DZ2 
C0MM0N/AREA7/NCT0T , SXBAR , SZBAR . SXSB , SZSB 
COMMON/AREA 13/SZBARA , SZBARB , SZSBA , SZSBB 

C0MM0N/0NE/ADU2 ,  PRIJ2  ,  TDU2 ,  GDIJ2 .  DISU2 .  ADV2 .  PRV2  ,  TDV2  ,  PDV2  , 

SGDV2 , DISV2 , ADW2 , PRW2 , TDW2 , GDW2 , DISW2 , ADUV , PRUV , TDUV , PDUV , 

$GDUV ,  D I  SUV ,  ADIJW ,  PRUW ,  TDUW ,  GDUW ,  VINTL ,  WINTL ,  UVWALL , 

$UPB , VPB , WPB , PWZB , PUZB , PVZB ,  IJZ2B , VZ2B , WZ2B , UZVZB , UZWZB , 

$VZWZB , PUYB , PVYB , PWYB , UY2B , VY2B , WY2B , UYVYB , UYWYB , VYWYB , UV2B , UINTL , 
$DI SUW , ADVW , PRVW , TDVW , PDVW , PVZWY , USB , VSB , WSB , UCB , PMU2 , PRW . TRS , 

$VCB , WCB . UFB . VFB , WFB , UVB , UWB , VWB , DUBY , DVBY , DWBY , PBAR , U2VB , VW2B , 
$V2WB , UVWB , TVS , D I SM , UVUV , GDVW , D I S VW , UVU , DUDU , UDU , DUM (12,51) 
COMMON/FOUR/UBAR , VBAR , WBAR , UINTW , VINTW , WINTW 

COMMON/FI VE/SU , SU2 , SU3 , SU4 , SV , SV2 , SV3 , SV4 , SW , SW2 , SW3 , SW4 , SUV , SUW , 
$SVW , SSX , SSX2 , SSZ , SSZ2 , SUV2 , SP , SU2V , SVW2 , SUVW , SV2W , SUP , SVP , SWP , 
$SPVY , SPWZ , SPUY , SPUZ , SPVZ , SPWY , SUY2 , SUZ2 , SVY2 , SVZ2 , SWY2 , 

$SWZ2 , SUYVY , SUZVZ , SUYWY , SUZWZ , SVYWY . SVZWZ , SP2 , SU2W , SUW2 , SZET , SZET2 , 
$SSZA , SSZB , SSZ2A , SSZ2B 
C0MM0N/FIX2/PPLUS , VAX 
SAVE 

IN=M*NCTOT 
FIN=FLOAT( IN) 
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C  CALCULATES  THE  NECESSARY  STATISTICAL 
C  QUANTITIES 
C 

DO  .166  J=1 ,  NP1 

PBAR(J)=SP(J)/PIN 

UBAR ( J ) =SU ( J ) /FIN 

VBAR ( J ) =SV ( J ) /PIN 

WBAR ( .7 )  =SW(J )  /FIN 

PSB  ( J )  =SP2  (J)/FIN~(SP(J)/FIN)**2 

ZSB( J)=SZET2(J)/FIN- (SZET(J)/FIN)**2 

USB(J)=SU2(.7)/FIN~(SU(J)/FIN)**2 

VSB (.J )  =SV2  ( J ) /FIN-  (SV(  J ) /FIN)**2 

WSB  ( J )  =SW2  (J)/FIN--(SW(J)/FIN)**2 

UCB ( J ) =SU3 ( J ) /FIN- (SU (J ) /FIN ) **3-3 .*(SU(,7)/FIN)*( ( SU2 ( J ) /FIN ) - 
$(SIJ(J)/FIN)**2) 

VCB ( ,7 ) =SV3 ( J ) /FIN- (SV(.7)/FIN)**3-3.*( SV( J )/FIN)*( (SV2(J)/FIN)~ 
$(SV(J)/FIN)**2) 

WCB(J )=SW3 ( J ) /FIN- ( SW( J)/FIN) **3 -3 . * (SW( J ) /FIN) * ( (SW2 ( J ) /F I N ) — 
$(SW(J)/FIN)**2) 

UFB ( J ) =SU4 ( J )/FIN+ (SU( J) /FIN)**4~4 . * (SU( J)/FIN) * ( ( SU3 ( J ) /FIN ) + 
$(SU(J)/FIN)**3)+-6.*(SU2(J)/FIN)*(SU(J)/FIN)**2 
VFB ( .7 )  =SV4 ( J ) /FIN  t  (SV(  J) /FIN )  **4-4  .  *  (SV(  J) /FIN) *  ( (SV3  (,J ) /FIN)  + 

$ ( SV ( J ) /F I N ) *  *3 ) f6.*(SV2(J)/FIN)*(SV(J)/FIN)**2 
WFB ( J ) =SW4 ( .7 )  /FIN+  (SW(  J ) /FIN) **4-4  .  * (SW ( J ) /FIN ) * ( ( SW3 ( J ) /FIN ) + 
$(SW(.J)/FIN) **3)  t-6 .  *  ( SW2  (J)/FIN)  *  (SW(.J ) /FIN)**2 
UVB (.7 )  =SUV ( J ) /FIN-  ( SU ( J ) /FIN) * (SV(J ) /FIN ) 

UWB  ( J )  =SUW  ( J )  /  F  IN-  (SIJ(J )  /FIN)  *  ( SW(  J)  /F  IN ) 

VWB(J)=SVW(.7)/FIN  (SV( J ) /FIN) * ( SW( J) /FIN) 

UVU(./)=UVB(J)*UBAR(J) 

166  CONTINUE 

DO  167  J-2 ,N 

DUBY (.7 )  =  ( UBAR ( J-t-1 ) -UBAR ( J-  1 )  )/TI)Y 
DVBY  ( .7 ) « ( VBAR  ( J+ 1 )  -VBAR  (.71))  /TDY 
DWBY (.7 )  =  ( WBAR ( .7+1 ) -  WBAR (.7-1 ) ) /TDY 
DUDU(J )  =DUBY  (.7 )  **2 
UDU  ( .7 )  =UBAR  ( .7 )  *DUBY  ( J ) 

167  CONTINUE 

DUBY ( 1 ) = ( 4 . *UBAR ( 2 ) -UBAR ( 3 ) ) /TDY 
DVBY ( 1 ) =0 . 

DWBY ( 1 ) =SZET ( 1 ) /FIN 

DUBY ( NP1 )  =  ( 3 . *UBAR ( NP1 ) -  4 . *UBAR ( N ) f UBAR (NM1 ) ) /TDY 
DVBY(NP1 ) =0 . 

DWBY (NP1)=SZKT(NP1) /FIN 
UDU ( 1 ) =UBAR ( 1 ) *DUBY ( 1 ) 

DUDU ( 1 ) =DUBY ( 1 ) **2 

UDU ( NP1 ) =UBAR ( NP1 ) *DUBY ( NP1 ) 

DUDU ( NP 1 ) =DUB Y ( NP 1 ) *  *  2 
DO  168  J-1.NP1 

U2VB (.7 )  =SU2V(  J )  /FIN- VBAR (.7 )  *USB ( J )  -UBAR (.7 )  *  (UVB ( J )  +SUV(  J ) /FIN ) 
VW2B(.7)=SVW2(J)/FIN-VBAR(J)*WSB(J)-WBAR(J)*(VWB(J)^SVW(J)/FIN) 
UVWB ( .7 ) =SUVW ( J ) /F IN -UBAR ( J ) *SVW ( J ) /F I N-VBAR ( J ) *SUW ( J ) /FIN-WBAR ( J ) 
$*SUV(J)/FINf2.*UBAR(.J)*VBAR(J)*WBAR(J) 

V2WB  (J)=SV2W(J)/FIN  WBAR  (.7 )  *VSB  ( J ) -VBAR  (.7 )  *  ( VWB  ( J ) +SVW(  J ) /FIN) 

UPB  ( .7 )  =SUP  ( J )  /P  IN  -UBAR  ( J )  *PBAR  ( J ) 

VPB  ( J )  =SVP  ( J )  /F I  N-VBAR  ( .7 )  *PBAR  ( J ) 
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WPB  ( )  -SUP  ( J ) /F I N  -  WBAR  ( J )  * PBAR  ( J ) 

PWZB ( J ) =SPWZ ( J ) /FIN 

PUZB ( J ) =SPUZ ( J ) /F I N 

PVZB(J)=SPVZ( J)/FIN 

UZ2B(J)=SUZ2(J)/FIN 

VZ2B ( J ) -SVZ2 ( J ) /F IN 

WZ2B ( J ) =SWZ2 ( J ) /F IN 

UZVZB( J)=SUZVZ( J)/FIN 

UZWZB ( J ) =SUZWZ ( J ) /P IN 

VZWZB( J)=SVZWZ( J  )/FIN 

PVYB { J)=SPVY( J) /F IN -PBAR ( J ) *DVBY ( J ) 

PUYB ( J ) =SPUY ( J ) /FIN-PBAR ( J ) *DUBY ( J ) 

PWYB ( J)=SPWY(J)/FIN -PBAR ( J ) *DWBY ( J ) 

UY2B ( J ) =SUY2 ( J ) /F I N -DUBY ( J)**2 
VY2B ( J ) =SVY2 ( J ) /FIN -DVBY( J ) **2 
WY2B( J ) =SWY2 ( J ) /FIN-DWBY ( J ) **2 
UYVYB ( J ) =SUYVY ( J ) /P IN -DUBY ( J ) *DVBY ( J ) 

UYWYB ( J ) =SUYWY ( J ) /FIN-DUBY ( J ) *DWBY ( J ) 

VYWYB ( J ) =SVYWY ( J ) /F IN -DVBY ( J ) *DWBY ( J ) 

UV2B(  J )=SUV2 ( J)/FIN -  UBAR-(  J) *VSB(  J)-VBAR(  J ) *  (UVB( J)+SUV( J ) /FIN) 
168  CONTINUE 

SXBAR=SSX/FIN 
SZBAR=SSZ/F  IN 
SZBARA=SSZA/FIN 
SZBARB=SSZB/FIN 
SXSB-SSX2/FIN-SXBAR**2 
SZSB=SSZ2/F IN-SZBAR**2 
SZSBA=SSZ2A/FIN-SZBARA**2 
SZSBB=SSZ2B/FIN-SZBARB**2 
SXBAR=SXBAR*ACON 
SXSB=SQRT ( SXSB ) *ACON 
SZBAR=SZBAR*ACON 
SZBARA=SZBARA*ACON 
SZBARB=SZBARB*ACON 
SZSB=SQRT ( SZSB ) *ACON 
SZSBA=SQRT ( SZSBA ) *ACON 
SZSBB--SQRT  ( SZSBB )  *  ACON 

C 

C  CALCULATES  THE  TERMS  FOR  THE  BALANCES  OF  THE 

C  REYNOLDS  STRESS  TENSOR  COMPONENTS  EXPRESSED  IN 

C  WALL  PARAMETERS . 


BC0N=CHVEL**3/CHLEN 
DO  514  J=2 , N 

ADU2  ( .7 )  =BC0N*0 . 5*VBAR  ( J )  *  ( USB  ( J+ 1 )  -USB  ( J-l ) )  /TDY 
PRU2 ( J ) = -BCON*UVB ( J ) *DUBY ( J ) 

TDU2 ( J ) =-BC0N*0 . 5* ( U2VB ( J+ 1 ) -U2VB ( J-l ) ) /TDY 

GDU2  ( -J )  =BC0N*0 . 5*  ( 1 .  /RB )  *  ( USB ( J+l )  -2 .  *USB ( J )  +-USB ( J- 1 ) )  /DY2 

DISU2 ( J ) =-BCON* ( 1 . /RE ) * (UY2B ( J ) +UZ2B( J ) ) 

ADV2 ( J ) =BC0N*0 . 5* VBAR ( J ) * ( VSB ( J+ 1 ) -VSB ( J-l ) ) /TDY 
PRV2 ( J ) =-BCON*VSB( J ) *DVBY ( J ) 

TDV2 ( J ) - -BC0N*0 . 5* ( VCB ( J+ 1 ) -VCB ( J-l ) ) /TDY 
PDV2 ( J ) = -BCON* ( VPB ( J+l ) -VPB ( J-l ) ) /TDY 

GDV2 ( J ) -BC0N*0 . 5* ( 1 . /RE ) * (VSB (J+l ) -2 . *VSB ( J ) +VSB ( J-l ) ) /DY2 
DI SV2 ( J ) =-BCON* ( 1 . /RE)* ( VY2B ( J ) +VZ2B ( J ) ) 
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ADW2 ( J ) =BC0N*0 . 5* VBAR ( J ) * ( WSB ( J+ 1 ) -WSB ( J~ 1 ) ) /TDY 
PRW2 ( J ) = -BCON*VWB ( J ) *DWBY ( J ) 

TDW2 ( J ) - -BC0N*0 . 5*  ( VW2B(.J+1 )  -VW2B ( J~ 1 ) )  /TDY 

GDW2 ( J ) =BCON*0 . 5* ( 1 . /RE ) * ( WSB ( J +1 ) -2 . *WSB ( J ) +WSB ( J-l ) ) /DY2 

DISW2 ( J ) = -BCON* ( 1 . /RK ) * ( WY2B ( J ) +WZ2B ( J ) ) 

ADUV ( J ) =BCON* VBAR ( J ) * ( UVB ( J  +  1 ) -UVB ( J- 1 ) ) /TDY 
PRUV (J)  =  -BCON* { VSB ( J ) *DUBY ( J )  HJVB ( J ) *DVBY (.J) ) 

TDUV ( J ) =-BCON* ( UV2B ( J+ 1 ) -UV2B ( J-l ) ) /TDY 

PDIJV  ( J )  =  -BCON*  ( UPB  ( J+ 1 )  -UPB  ( J - 1 ) )  /TDY 

(iDUV  ( J )  =BCON*  ( 1 .  /RE )  *  ( UVB  ( J+l )  -2 .  *UVB  ( J )  +UVB  ( J-l ) )  /DY2 

D I  SUV  ( J )  -  -BCON*  ( 2 .  /RE )  *  ( IJYVYB  ( J )  +UZVZB  ( J ) ) 

ADUW( J )=BCON*VBAR( J )* (UWB( J+l )-UWB( J-l ) ) /TDY 
PRUW  (.})-■  -BCON*  ( VWB ( J )  *DUBY  ( J )  +UVB ( J )  *DWBY ( J ) ) 

TDUW ( J ) = -BCON* ( UVWB ( J+ 1 ) -UVWB ( J - 1 ) ) /TDY 

GDUW ( J)  = BCON* ( 1 . /RE ) * ( UWB ( J+l ) -2 . *UWB ( J ) +UWB (J-l) ) /DY2 

D I SUW ( J ) =-BCON* ( 2 . /RE ) * ( UYWYB ( J ) +UZWZB ( J ) ) 

ADVW ( J ) =BCON*VBAR ( J ) * ( VWB ( J+ 1 ) -VWB ( J-l ) ) /TDY 
PRVW ( J ) =-BCON* ( VWB ( J ) *DVBY ( J ) +VSB ( J ) *DWBY ( J ) ) 

TDVW( J) =-BCON* (V2WB( J+l ) -V2WB( J  1) )/TDY 
PDVW( J)=-BCON*(WPB(J+l)-WPB(J- 1 ) ) /TDY 
PVZWY ( J ) =BCON* (PVZB(J) fPWYB ( J ) ) 

GDVW ( J ) = BCON * ( 1 . /RE ) * ( VWB ( J + 1 ) - 2 . * VWB ( J ) + VWB (J-l ) )/DY2 
D I SVW (J)= -BCON* ( 2 . /RK ) * ( VYWYB ( J ) +VZWZB ( J ) ) 

PMU2 ( J ) =BCON*UVB ( J ) *DUBY ( J ) 

PRW (J)* -UBAR ( J ) *PPLUS*CHVBL 

TRS  ( J )  ---BCON*  ( UVU  (Jtl )  -UVU  ( J-l ) )  /TDY 

TVS ( J ) =BCON* ( 1 /RK ) * ( UDU ( J+ 1 ) - UDU (J-l)) /TDY 

DISM ( J) - -BCON* ( 1/RE) *DUDU ( J ) 

UDUV ( J)- -BCON*UBAR ( J ) * ( UVB ( J+l )  UVB ( J  1 ) ) /TDY 
514  CONTINUE 

ADU2 ( 1 ) =BCON*0 . 5*VBAR ( 1 ) * ( 4 . *USB ( 2 ) -USB ( 3 ) ) /TDY 
PRIJ2  ( 1 )  =  -BCON*UVB  ( 1 )  *DUBY  ( 1 ) 

TDU2 ( 1 ) =-BC0N*0 . 5* ( 4 . *U2VB ( 2 ) -U2VB ( 3 ) ) /TDY 

GDU2 ( 1 ) =BC0N*0 . 5* ( 1 . /RK ) * ( 2 . *USB ( 1 ) -5 . *USB ( 2 ) +4 . *USB ( 3 ) -USB ( 4 ) ) / 
$DY2 

DISU2 ( 1 ) = -BCON* ( 1 . /RE ) * ( UY2B ( 1 ) +UZ2B ( 1 ) ) 

PMU2 ( 1 ) =BCON*UVB ( 1 ) *DUBY ( 1 ) 

PRW  ( .1 )  --UBAR  ( 1 )  *PPI.US*CHVEL 

TRS ( 1 )  =  -  BCON* (4*UVU ( 2 ) -UVU (3) ) /TDY 

TVS  ( 1 )  --  BCON*  ( 1  /RE )  *  ( 4*UDU  ( 2  )  -UDU  ( 3 ) )  /TDY 

D I SM  ( 1 )  =  -BCON*  ( 1  /RK )  *DUDIJ  ( 1 ) 

UDUV ( 1 ) = -BCON*UBAR ( 1 ) * ( 4*UDUV ( 2 ) -UDUV ( 3 ) ) /TDY 

ADU2 ( NP1 ) ~BC0N*0 . 5*VBAR ( NP1 ) * ( 3 . *USB (NP1 ) -4 . *USB ( N ) + USB (NM1 ) ) /TDY 
PRU2 (NP1 )- BCON*UVB (NP1 ) *DUBY (NP1 ) 

TDU2 (NP1 )  BC0N*0 . 5* (3 . *U2VB (NP1 ) -4 . *U2VB(N) +U2VB(NM1 ) ) /TDY 
GDU2 (NP1 )=BCON*0 . 5* ( 1 . /RE) * ( 2 . *USB (NP1 ) -5 . *USB(N) +4 . *USB(NM1 )- 
$USB(NM2) )/DY2 

I)ISU2  (NP1 )  =  -BCON*  ( 1 .  /RE ) *  (UY2B (NP1 )  +UZ2B (NP 1  ) ) 

PMU2 (NP1 ) =BCON*UVB(NPl )*DUBY(NP1 ) 

PRW(NP1  )=-UBAR(NP.l ) *PPLUS*CHVEL 

TRS  ( NP  1 )  =  BCON*  ( 3*UVIJ  ( NP  1 )  4 *UVU  ( N )  +UVIJ  ( NM1 ) )  /TDY 

TVS ( NP1 ) -BCON* ( 1 /RE ) * ( 3*UDU ( NP1 ) -4*UDU ( N ) +UDU (NM1 ) ) /TDY 

DISM ( NP1 ) = -BCON* ( 1 /RE ) *DUDU ( NP1 ) 

UDUVfNPl )=- BC0N*UBAR(NP1)*(3*UDUV(NP1 )-4*UDUV(N) +UDUV(NM1 ) ) /TDY 
ADV2 { 1 ) =BC0N*0 . 5*VBAR ( 1 ) * ( 4 . *VSB ( 2 ) -VSB (3 ) ) /TDY 
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PRV2  ( 1 )  =  -BC0N*VS)3  ( 1 )  *DVBY  ( 1 ) 

TDV2 ( 1 ) — BC0N*0 . 5* ( 4 . *VCB ( 2 ) -VCB { 3) ) /TDY 
PDV2 ( 1 ) = -BCON* ( 4 . *VPB ( 2 ) -VPB ( 3 ) ) /TDY 

GDV2 ( 1 ) =BC0N*0 . 5* ( 1 . /RE ) * ( 2 . *VSB( 1 ) -5 . *VSB ( 2 ) +4 . *VSB ( 3 ) -VSB ( 4 ) ) / 
$I)Y2 

DISV2  ( 1 )  —BCON*  ( 1 .  /RE )  *  (VY2B  ( 1 )  +VZ2B  ( 1 ) ) 

ADV2 ( NP1 ) =BC0N*0 . 5*VBAR ( NP1 ) * ( 3 . *VSB ( NP1 ) -4 . *VSB ( N ) +VSB ( NM1 ) ) /TOY 

PRV2 ( NP1 ) — BCON*VSB (NP1 ) *DVBY ( NP1 ) 

TDV2 ( NP1 ) = -BCON*0 . 5* ( 3 . *VCB ( NP1 ) -4 . *VCB ( N ) +-VCB (NM1 ) ) /TDY 

PDV2 ( NP1 ) —BCON* ( 3 . *VPB ( NP1 ) -4 . *VPB ( N ) +VPB (NM1 ) ) /TDY 

GDV2 (NP1 ) =BC0N*0 . 5* ( 1 . /RE) * (2 . *VSB(NP1 ) -5 . *VSB(N) +4 . *VSB(NM1 ) - 

$VSB(NM2 ) )/DY2 

DISV2  (NP.t )  —BCON*  ( 1 .  /RE)*  (VY2B(NP1 )  +VZ2B(NP1 ) ) 

ADW2 ( 1 ) =BC0N*0 . 5*VBAR ( 1 ) * ( 4 . *WSB ( 2 ) -WSB ( 3 ) ) /TDY 
PRW2 ( 1 ) — BCON*VWB ( 1 ) *DWBY ( 1 ) 

TDW2 ( 1 ) = -BC0N*0 . 5* ( 4 . *VW2B ( 2 ) -VW2B ( 3 ) ) /TDY 

GDW2  ( .1 )  «:BC0N*0 . 5*  ( .1 .  /RE )  *  ( 2  .  *WSB  ( 1 )  -5  .  *WSB  ( 2 )  +4  .  *WSB  ( 3 )  -WSB  ( 4 )  )  / 
$DY2 

OISW2  ( 1 )  —BCON*  ( 1 .  /RE )  *  ( WY2B  ( 1 )  +WZ2B  ( 1 ) ) 

ADW2 ( NP1 ) =BC0N*0 . 5*VBAR ( NP1 ) * ( 3 . *WSB ( NP1 ) -4 . *WSB ( N ) f WSB (NM1 ) ) /TDY 
PRW2 (NP1 )— BCON*VWB(NPl )*DWBY(NP1 ) 

TDW2 (NP1 ) = -BC0N*0 . 5* ( 3 . *VW2B ( NP1 ) -4 . *VW2B ( N ) +VW2B ( NM1 ) ) /TDY 
GDW2 ( NP3 ) ~BCON*0 . 5* ( 1 . /RE ) * ( 2 . *WSB(NP1 ) -5 . *WSB(N)+4 . *WSB(NM1 )- 
$WSB(NM2) )/DY2 

DISW2(NP.l  )— BC0N*(1./RE)*(WY2B(NP.1)+WZ2B(NP1) ) 

ADUV ( 1 ) =BCON*VBAR ( 1 ) * ( 4 . *UVB ( 2 ) -UVB (3 ) ) /TDY 
PRUV ( 1 )  —BCON*  (VSB  ( 1 )  *DUBY ( 1 )  +UVB  ( 1 )  *DVBY ( 1 ) ) 

TDUV ( 1 ) = -BCON* ( 4 . *UV2B ( 2 ) -UV2B ( 3 ) ) /TDY 
PDUV  ( 1 )  —BCON*  ( 4  .  *UPB  ( 2 )  -UPB  ( 3 ) )  /TDY 

GDUV ( 1 ) =BCON* ( 1 . /RE ) * ( 2 . *UVB ( 1 ) -5 . *UVB ( 2 ) +4 . *UVB ( 3 ) -UVB ( 4 ) ) /DY2 
D I SUV ( 1 ) =-BCON* ( 2 . /RE ) * ( UYVYB ( 1 ) +UZVZB ( 1 ) ) 

ADUV  ( NP1 )  =BCON*VBAR ( NP1 )  *  ( 3  .  *UVB  ( NP1 )  -4  .  *UVB  (N)  *UVB(NM1 ) )  /TDY 
PRUV ( NP1 ) —BCON* ( VSB ( NP1 ) *DUBY (NP1 ) +UVB ( NP1 ) *DVBY ( NP1 ) ) 

TDUV ( NP1 ) = -BCON* ( 3 . *UV2B (NP1 ) -4 . *UV2B ( N ) *UV2B (NM1 ) ) /TDY 
PDUV ( NP1 )  —BCON*  ( 3 .  *UPB  ( NP.1 )  -4  .  *UPB  ( N )  +UPB  (NM1 ) )  /TDY 
GDUV ( NP1 ) =BCON* ( 1 . /RE ) * ( 2 . *UVB ( NP1 ) -5 . *UVB ( N ) +4 . *UVB (NM1 ) -UVB ( NM2 ) 
$ ) /DY2 

DI SUV ( NP1 ) —BCON* ( 2 . /RE ) * ( UYVYB ( NP1 ) +UZVZB ( NP1 ) ) 

ADUW ( 1 ) =BCON* VBAR ( 1 ) * ( 4 . *UWB ( 2 ) -UWB ( 3 ) ) /TDY 
PRUW  ( 1 )  —BCON*  ( VWB  ( 1 )  *DUBY  ( 1 )  +UVB  ( 1 )  *DWBY  ( 1 ) ) 

TDUW  ( 1 )  —BCON*  ( 4  .  *UVWB  ( 2 )  -UVWB  ( 3 ) )  /TDY 

GDUW( 1 ) =BCON* ( 1 . /RE ) * ( 2 . *UWB ( 1 )-5 . *UWB ( 2 ) +4 . *UWB ( 3 ) -UWB (4 ) ) /DY2 
D I SUW ( 1 ) - - BCON* ( 2 . /RE ) * ( UYWYB ( 1 ) +UZWZB ( 1 ) ) 

ADUW ( NP1 ) =BCON*VBAR ( NP1 ) * ( 3 . *UWB ( NP1 ) -4 . *UWB ( N ) +UWB (NM1 ) ) /TDY 
PRUW ( NP 1 ) — BCON* ( VWB ( NP 1 ) *DUBY ( NP 1 ) f UVB ( NP 1 ) *DWBY ( NP 1 ) ) 

TDUW ( NP1 ) —BCON* ( 3 . *UVWB ( NP1 ) -4 . *UVWB ( N ) +UVWB (NM1 ) ) /TDY 
GDtJW  ( NP  1 )  =BCON*  ( 1 .  /RE )  *  ( 2  .  *UWB  ( NP  1 )  -5  .  *UWB  ( N )  +4  .  *UWB  (NM1 )  -UWB  ( NM2  ) 
$)/DY2 

DI SUW ( NP1 ) =-BCON* ( 2 . /RE ) * ( UYWYB ( NP1 ) +UZWZB ( NP1 ) ) 

ADVW ( 1 ) =BCON*VBAR ( 1 ) * ( 4 . *VWB ( 2 ) -VWB ( 3 ) ) /TDY 
PRVW ( l )  —BCON*  (VWB  ( 1 )  *DVBY ( 1 )  +VSB ( 1 )  *DWBY ( 1 ) ) 

TDVW ( 1 ) = -BCON* ( 4 . * V2WB ( 2 ) - V2 WB ( 3 ) ) /TDY 
PDVW  ( 1 )  —BCON*  ( 4  .  * WPB  ( 2 )  -WPB  ( 3 ) )  /TDY 
PVZWY  ( 1 )  =BCON*  ( PVZB  ( 1 )  ^PWYB  ( 1 ) ) 

GDVW  ( 1 )  -BCON*  ( .1  .  /RE )  *  ( 2  *VWB  ( 1 )  -5 .  *VWB  ( 2 )  +4  .  *VWB  ( 3 )  -VWB  ( 4 ) )  /TDY 
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DISVW ( 1 ) = -BCON* ( 2 . /RE ) * ( VYWYB ( 1 ) -t-VZWZB ( 1 ) ) 

ADVW  ( NP1 )  =:BCON*VBAR  ( NP1 )  *  ( 3 .  *VWB  ( NP1 ) -4 .  *VWB  ( N )  +VWB  ( NM1 ) )  /TDY 
PRVW ( NP 1 ) = -BCON* ( VWB ( NP 1 ) *DVBY ( NP1 ) +VSB ( NP1 ) *DWBY ( NP 1 ) ) 
TDVW(NP1)=-BC0N*(3.*V2WB(NP1)  -4 . *V2WB(N)+V2WB(NM1 ) )/TI)Y 
PDVW  ( NP1 ) =  -BCON*  ( 3  .  * WPB  ( NP  1 )  -4  .  *WPB  ( N )  <-WPB  ( NM1 ) )  /TDY 
PVZWY(NP1 )  =BCON*  (PVZB(NP.t )  +PWYB(NP1 ) ) 

GDVW ( NP 1 ) =BCON* ( 1 . /RE ) * ( 2 . * VWB ( NP 1 ) -5 . * VWB ( N ) +4 . *VWB ( NM1 ) -VWB ( NM2 ) 

$ ) /DY2 

DISVW (NP1 ) =-BCON* ( 2 . /RE ) * ( VYWYB (NP1 ) +VZWZB (NP1 ) ) 

C 

C  CALCULATES  STATISTICAL  QUANTITIES  LOCALLY 

C  AND  IN  WALL  PARAMETERS 

C 

Z I NTW ( 1 ) =SQRT ( ZSB ( 1 ) ) *ACON 
PINTW( 1 ) =SQRT ( PSB ( 1 ) )*CHVEL**2 
UINTL ( 1 ) -SXSB/SXBAR 
VINTL ( 1 ) =0 . 

WINTL ( 1 ) =SZSB/SXBAR 
UINTW ( 1 ) =0 . 

VINTW(1 )=0 . 

WINTW(l) =0. 

UVWALL( 1 ) =0 . 

UWWALL ( 1 ) =0 . 

VWWALL ( 1 ) =0 . 

UBAR( 1 ) =0 . 

VBAR( l)-0. 

WBAR ( 1 ) =0 . 

PUZB ( 1 ) =BCON*PUZB ( 1 ) 

PWZB ( 1 ) =BCON*PWZB ( 1 ) 

PUYB ( 1 ) =BCON*PUYB ( 1 ) 

PVYB ( 1 ) =BCON*PVYB ( 1 ) 

DO  225  J=2 , NP1 
ZINTW( J)=SQRT(ZSB(J) )*ACON 
PINTW(  J)=SQRT(PSB(  J ) ) *CHVF.L**2 
UINTL { J ) =SQRT ( USB ( J) ) /UBAR ( J ) 

VINTL ( J ) =SQRT ( VSB ( J ) ) /UBAR ( J ) 

WINTL ( J ) =SQRT ( WSB ( J ) ) /UBAR ( J ) 

U I NTW ( J ) =SQRT ( USB ( J ) ) *CHVEL 

VINTW(J)=SQRT(VSB(J) )*CHVEL 

WINTW(J)=SQRT(WSB(J) )*CHVEL 

USQ ( J  - 1 ) =UCB ( J ) /USB ( J ) ** 1 . 5 

VSQ(J-1)=VCB(J)/VSB(J)**1 .5 

WSQ ( J-l ) =WCB ( J ) /WSB ( J ) **1 . 5 

UFL( J-l )=UFB( J)/USB(J)**2 

VFL ( J-l ) =VFB ( J ) /VSB (J)**2 

WFL(J-1)=WFB(J)/WSB(J)**2 

UVCOR (J-l ) =UVB ( J ) /SQRT ( USB ( J ) * VSB ( J ) ) 

UWCOR ( J-  1  )--UWB(J)/SQRT(USB(J)*WSB(J) ) 

VWCOR ( J  - 1 ) = VWB ( J ) / SQRT ( VS B ( J ) * WSB ( J ) ) 

UVWALL ( J ) =UVB ( J ) *CHVEL**2 
UWWALL  (. J )  =UWB  ( ./ )  *CHVEL**2 
VWWALL ( J ) =VWB ( J ) *CHVEL**2 
UBAR ( J ) =UBAR ( J ) *CHVEL 
VBAR  ( J )  --VBAR  ( J )  *CHVEL 
WBAR ( J ) -WBAR ( J ) *CHVEL 
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PUZB(.J)  =BCON*PUZB(  J) 

PWZB ( J ) =BCON*  PWZB ( J ) 

PUYB(.J)  =BCON*PUYB(J) 

PVYB ( J ) =BCON*  PVYB ( J ) 

225  CONTINUE 
C 

C  PRINTS  DATPL  FILE 
C 

I F  ( VAX .  EQ .  0 )  OPEN  ( 36 ,  F I I,E= '  DPLO ,  FI=S ,  RE=V ,  FM=U  ’  , 
$STATIJS=- 1  NEW '  ) 


IF (VAX . EQ 

. \ ) OPEN (36, FILE-’ DPLO1 , STATUS^ ' NEW ' ) 

WRITE (36) 

IJINTL 

WRITE (36) 

VINTL 

WRITE (36) 

WINTL 

WRITE (36) 

UINTW 

WRITE (36) 

VINTW 

WRITE (36) 

WINTW 

WRITE (36) 

UVWALL 

WRITE (36 ) 

UWWALL 

WRITE (36) 

VWWALL 

WRITE(36) 

UBAR 

WRITE (36) 

VBAR 

WRITE (36) 

WEAR 

WRITE (36) 

USQ 

WRITE (36) 

VSQ 

WRITE (36) 

WSQ 

WRITE{36) 

UFL 

WRITE (36) 

VFL 

WRITE (36) 

WFL 

WRITE (36) 

UVCOR 

WRITE (36) 

UWCOR 

WRITE (36) 

VWCOR 

WRITE (36) 

ADU2 

WRITE (36) 

PRIJ2 

WRITE (36) 

TDU2 

WRITE (36) 

GDU2 

WRITE (36) 

DISU2 

WRITE(36) 

ADV2 

WRITE (36) 

PRV2 

WRITE (36) 

TDV2 

WRITE (36) 

PDV2 

WRITE (36) 

GDV2 

WRITE (36) 

DISV2 

WRITE (36) 

ADW2 

WRITE (36) 

PRW2 

WRITE(36) 

TDW2 

WRITE (36) 

GDW2 

WRITE(36) 

DISW2 

WRITE (36) 

PRW 

WRITE (36) 

PMIJ2 

WRITE(36) 

TRS 

WRITE (36) 

TVS 

WRITE (36) 

DISM 

WRITE (36) 

UDUV 

WRITE (36) 

ADUV 

WRITE (36)  PRUV 
WRITE (36)  TDUV 
WRITE (36)  PDIJV 
WRITE (36)  GDUV 
WRITE  (36)  I)  I  SUV 
WRITE (36)  ADUW 
WRITE (36)  PRUW 
WRITE (36)  TDUW 
WRITE (36)  GDUW 
WRITE (36)  DISUW 
WRITE (36)  ADVW 
WRITE (36)  PRVW 
WRITE (36)  TDVW 
WRITE (36)  PDVW 
WRITE (36)  PVZWY 
WRITE (36)  GDVW 
WRITE ( 36 )  UISVW 
WRITE (36)  PUYB 
WRITE (36)  PVYB 
WRITE (36)  PUZB 
WRITE (36)  PWZB 
WRITE(36)  PINTW 
WRITE (36)  ZINTW 
RETURN 
END 


APPENDIX  III.  Pulsating  Pressure  Gradient  Program 


PROGRAM  MAIN 

IMPLICIT  DOUBLE  PRECISION  (A-H,0-Z) 

IMPLICIT  INTEGER*4  (I-N) 

DIMENSION  YP (0:500) ,UPN (0:500) ,BY(0:500) 

DIMENSION  UPN1 ( 0 : 500 ) , CP ( 0 : 500 ) , UPO (0:500), TAUPN1 (0:500) 
DIMENSION  TURBKV ( 0 : 500 ) , DY ( 0 : 500 ) ,TAUL(1 : 71 ) 

DIMENSION  UA(0 : 500) ,UT( 1:71 ,0:300) , TAUT( 1 : 71 , 0 : 300) , Z (71 ) 
DIMENSION  PPT ( 0 : 100000) ,AP(0: 100000) ,TEMP(1:501) ,YPP1(1:501) 
DIMENSION  UMAG ( 0 : 300 ) ,UANG(0:300) .TAUMAG (0:300) .TAUANG (0:300) 
DIMENSION  B1 (0:500) , B2 (0:500) , B3 (0:500) 

REAL*8  H , KAPPA , KV,K1 ,KR, MAG 

COMMON/ALL/RP , NT , NT1 , WP , TP , DTP , H , NJ , NJ 1 , DYP1 ,  P I 
COMMON /PARA /KAPPA , APA , YOO , K1 , KR 
C0MM0N/0NE/A1 , A2 , A3 , B1 , B2 , B3 , D4 , D5 , El , E2 , E3 
C 
C 

c - - - 

C  INPUT 

C  V  =  0  PROGRAM  TO  BE  RUN  ON  THE  VAX 
C  1  PROGRAM  TO  BE  RUN  ON  THE  AP 

C 

C  DTP : 

C 

C 

C - 

READ* , V 

I F  ( V .  EQ .  1 )  OPEN  (11 ,  FI  I.E= 

$ ' : HOSTCHAR : DRA3 : [240016. EMP . STORE ]OSC . DAT ' 

$ , STATUS- ' NEW ' , FORM- ' FORMATTED ' ) 

WRITE( 1 1 , 1200)V 
WRITE (6,1 200 )V 
READ* , DTP , DYP 1 , DYPL . INCY 
WRITE ( 1 1 , 1035 ) DTP , DYP1 , DYPL , INCY 
WRITE(6, 1035)DTP,DYP1, DYPL, INCY 
READ* , TAUW . WP , AV , YOO , K1 , KR 
WRITE (11, 1020 )TAUW, WP , AV, YOO ,K1 ,KR 
WRITE (6, 1 020) TAUW, WP.AV, YOO, K1 ,KR 
C 
C 

AV  =  0.1 
K1  =  -25 
KR  =  3500 
YOO  =  40. 

PI  =  4.*DATAN(1 .DO) 

KAPPA  =  0.41D0 
APA  =  26. DO 
KV  =  0 . 00886D0 
ROE  =  l.ODO 
W  =  WP*TAUW/(ROE*KV) 

R  =  2.54D0 

F  =  W  /  2.*PI 

USTAR  =  DSQRT ( TAUW/ROE ) 


o  o 


RP  =  R*IJSTAR/KV 

PPA  =  2. /RP 

STOKE  =  DSQRT ( 2 . *KV/W ) 

STOKEP  =  USTAR  *  STOKE  /  KV 
VISLEN  =  KV/USTAR 

(: - 

C  DETERMINE  NT  AND  NJ  SUCH  THAT  NT/INCT  IS  AN  INTEGER 
C  AND  NJ/INCY  IS  AN  INTEGER 

C - 

INCT  =  70 

H  =  1  +  (DYP1/RP) * (DYPL/DYP1-1 ) 

NJ  =  I)LOG  ( DYPL/DYP1 )  /DLOG  ( H ) 

NJN  =  IDNINT(DFLOAT(NJ/INCY) ) 

NJ  =  NJN  *  INCY 

DYP1  =  RP  *  (H  I)  /  ( H**NJ-1) 

DYPI,  =  DYP1  *  H**NJ 
NJ 1  -  NJ  +  1 
DO  50  J=0 , NJ 

YP( J)  =  DYPI  *  ( (H**J)  1 . )  /  (H-l . ) 

50  CONTINUE 

TP  =  2.*PI/WP 
NT  =  TP  /  DTP 

ND  =  IDNINT(DFLOAT(NT/INCT) ) 

NT  =  ND  *  INCT 

DTP  =  TP  /  DFLOAT(NT) 

NT1  =  NT  +  1 

DT  =  DTP  *  (ROE*KV)  /  TAUW 

C - 

WR I TE ( 1 1 , 1 000 ) TAUW , USTAR , PPA , RP , STOKEP .VISLEN 
WR I TE ( 6 , 1 000 ) TAUW , USTAR , PPA , RP , STOKEP .VISLEN 
WR I TE (11. 1040)DTP,DYP1 , DYPL , NT , NJ , H 
WR I TE ( 0 , 1040 ) DTP , DYPI , DYPL , NT . NJ , H 
WR I TE ( 1 1 , 1 0  4  5 ) I NCT . N J / 1 NO Y 
WR I TE ( 6 , 1 04  5 ) I NOT , N J/ 1 NCY 
C 
C 
C 

- INITIALIZATION - 

****  SET  UP  COMMON  ONE  **** 

A1  =  -H  /  (DYPI* (Hi  1 . ) ) 

A2  =  (H-l)  /  ( DYPI *H ) 

A3  =  1.  /  (DYPI  *  H  *  (11+1 ) ) 

DO  45  J-l  ,  NJ--1 

B1(J)  =  (RP-YP(J-l))  /  ((RP-YP(J))  *  H**(J-1)) 

132  (J )  =  (RP-YP(J) )  /  ((RP-YP(J))  *  H**(J~1)) 

B3  ( J)  =  (RP-YP(JH))  /  ( (RP-YP(J) )  *  H**  ( J-l ) ) 

45  CONTINUE 

1)1  =  YP(NJ)  -  YP(NJ-l) 

D2  =  YP(NJ-l)  -  YP ( NJ  -2 ) 

D3  =  YP(NJ)  -  YP (NJ-2 ) 

D4  =  D3**2/(D2*(D1*-D3) ) 

D5  =  I)l**2/  (D2*  (D1+D3 ) ) 

El  =  YP ( 2 ) *YP ( 3 ) / ( YP ( 1 ) * ( YP ( 1 ) -YP (2))*(YP(1) -YP ( 3 ) ) ) 
E2  =  YP ( 1 ) *YP ( 3 ) / ( YP ( 2 ) * (YP ( 2 ) -YP ( 1 ) ) * ( YP( 2 ) -YP ( 3) ) ) 
E3  =  YP ( 1 ) *YP ( 2 ) / ( YP ( 3 ) * ( YP ( 3 ) -YP ( 1 ) ) * ( YP ( 3 ) -YP ( 2 ) ) ) 
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c* **************************************** ******************* 


CALL  INIT ( YP , AV , AMPP , UPO , BY , YPP1 , TEMP , TURBKV , CP , Cl , C2 ) 
DO  80  N=0 , NT 

PPF  =  AMPP  *  DCOS(2.*PI*DTP*DFLOAT(N)/TP) 

PPT(N)  =  PPA  +  PPF 

AP(N)  =  APA  *  ( 1 . +K1* (-1*PPF ) ) 

80  CONTINUE 

IF (KR . NE . 0 . DO  .AND.  K1  NE.O.DO)CALL  PEFF (PPA , PPT , AP ) 

FINAL  =  O.DO 

NCOUNT  =  0 

DO  100  J=0 , NJ 

UPN(J)  =  UPO(J) 

TAUPN1  ( J )  =  2. 

100  CONTINUE 

C - BEGINNING  OF  OUTER  LOOP - 

LOOP  =0.0 
DO  200  L0=1 .15 
LOOP  =  LOOP  +  1 
IF (FINAL . EQ . 1 . DO) GOTO  265 
DO  260  J=0,NJ 
UA( J)  =00 
260  CONTINUE 
265  CONTINUE 

c - BEGINNING  OF  INNER  LOOP - 

DO  300  LI=1 .NT 

CALL  USOLVE ( YP , PPT ( L I  1 ), TURBKV . UPN , CP . UPN1 ) 

CALL  LOGTAU ( YP ,  BY ,  AP  ( 1. 1 ) .Cl ,C2.CP,TAUL0G,NK) 

CALL  TAU ( NK . TAULOG , AP ( L I ) . YP , BY , TURBKV , CP . TAUPN 1 ) 

IF (FINAL . NE . 1 . DO) GOTO  280 

NCOUNT  =  NCOUNT  *  1 

IF (ND.NE. NCOUNT) GOTO  280 

TAUL(LI/ND+1 )  =  TAULOG 

NCOUNT  =  0 

DO  270  J=0 . NJ , INCY 

UT(LI /ND* 1 . J/INCY)  =  UPN1(J) 

TAUT  ( LI/ND+1 ,  J/  INCY)  =  TAUPNl(.J) 

270  CONTINUE 
280  CONTINUE 

DO  305  J=0 , NJ 

I F ( F I NAL  .EQ.  l.DO)UA(J)  =  UA(J)  +  UPN1(J) 

UPN(J)  =  UPN1(J) 

305  CONTINUE 
300  CONTINUE 

C - END  OF  INNER  LOOP - 

DELTA  =  O.ODO 
DO  400  J=0 , NJ 

I F  ( F’  I  NAL  .  EQ .  1 .  DO )  UA  ( J )  =  UA(J)  /  DFLOAT(NT) 

DIFF  =  DABS ( UPN1 ( J )  -  UPO(J)) 

IF (D1FF.GT. DELTA) DELTA  =  DIFF 
UPO(J)  =  UPN1(J) 

400  CONTINUE 

WRITE ( 11 , 1240)L00P, DELTA 
WRITE (6, 1240) LOOP. DELTA 
IF ( V . EQ . 1 ) OPEN ( 99 , FILE= 
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$ ' : HOSTCHAR : DRA3 : [ 240016 . EMP . STORE ] LOOP . DAT ' 

$ , STATUS* ’ NEW ' . FORM- ' FORMATTED ' ) 

WR I TH  ( 99 , 1 2 1 0 )  LOOP ,  DELTA ,  IJPO  ( 2 )  ,  UPO  ( 3 )  ,  UPO  (NJ--1 )  ,  UPO  (NJ ) 

CLOSE (99) 

IF ( FINAL . EQ . 1 . DO) GOTO  600 
IF  (DELTA.  I,E.0.03)FINAL  *1  .DO 
200  CONTINUE 

WRITE( 11 , 1220) 

WRITE (6. 1220) 

STOP 

600  CONTINUE 

WRITE(  11, 1230)1.0-1 
WRITK(6, 1230)L0  -1 

- END  OF  OUTER  LOOP - 

I F  ( V .  EQ .  1 ) OPEN  ( 51  ,  F I I.E=  '  :  HOSTCHAR :  DRA3  :  [ 24001 6  .  EMP .  STORE ]  LOG  .  DAT ' 
$ . STATUS* ' NEW ' . FORM* ' FORMATTED ' ) 

TAUL(l)  =  TAUL ( INCT+1 ) 

DO  290  N*1 , INCT+1 

WR  I TE  ( 5 1 . 1 250 )  N*  360 .  /DFI.OAT  ( I NCT+ 1 )  ,  TAUL  ( N ) 

Z ( N )  =  TAUL (N) 

290  CONTINUE 
CLOSE (51) 

CALL  EFIT ( 9999  .  ,  INCTU  .  TEMP  ,  Z  ,  AMAG  ,  ANGD) 

WRITE (11, 1030) AMAG. ANGD 
WRITF.(6, 1030 )  AMAG ,  ANGD 
DO  650  J =0 , NJ/INCY 
UT ( 1 , J )  =  UT ( INCT+1 , J ) 

TAUT(l.J)  =  TAUT  ( INCTU,  J) 

650  CONTINUE 

DO  700  J«1 , NJ1 

TEMP(J)  =  (2./RP)  *  UA(J-l)  *  ( 1 . -YPP1 ( J)/RP) 

700  CONTINUE 

CALL  INTEG (YPPl , TEMP , NJ1 ,1,1,0, UBULK , I RROR ) 

UCP  =  UA(NJ) 

WR I TE ( 1 1 . 1 055 ) UCP , UBULK , UBULK/UCP 
WRITE (6,1055) UCP , UBULK , UBULK/UCP 
RE  =  2 . *RP*UBULK 
WRITE (11 , 1050)TAUW.RE 
WRITE ( 6 , 1050 )TAUW, RE 

C - 

C  DETERMINES  THE  N0RMALI7.IED  WALL  SHEAR  STRESS,  THE 
C  PHASE  OF  THE  WALL  SHEAR  STRESS,  THE  PHASE  OF  UC, 

C  AND  THE  AMPLITUDE  OF  THE  CENTER  VELOCITY  VARIATION 

c - 

DO  705  1*1 , INCT+1 
Z ( I )  =  UT( I .NJ/INCY) 

705  CONTINUE 

CALL  EFIT  (9999.  ,  INCTU  ,  TEMP ,  Z  ,  AMAG  ,  ANGD ) 

UMAG( NJ/INCY)  =  AMAG 
UANG( NJ/INCY)  =  ANGD 
DO  710  I  -1 , INCT+1 
Z ( I )  =  TAUT (1,0) 

710  CONTINUE 

CALL  EFIT (9999. , INCT+1 , TEMP , Z , AMAG , ANGD) 
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TAUMAG* 0)  »  AMAG 

TAUANG ( 0 )  =  ANGD 

CAMP  =  UMAG ( NJ/INCY)  /  UCP 

TAUAMP  =  TAUMAG ( 0 )  /  UMAG (NJ/INCY) 

WRITE ( 11 , 1090)W,WP 
WRITE(6 , 1090)W , WP 

WRITB(11 , 1100)CAMP,UANG(NJ/INCY) , TAUAMP 
$ , TAUANG ( 0 ) , TAUANG ( 0 )  --UANG (NJ/I NCY ) 

WR I TE ( 6 , 1 1 00 ) CAMP , UANG (NJ/INCY ) , TAUAMP , TAUANG ( 0 ) 

$ , TAUANG ( 0 ) -UANG (NJ/INCY) 

CLOSE (11) 

C - 

C  OUPUT  OF  U  VELOCITY  INFORMATION 

C - 

I P ( V . EQ . 1 ) OPEN ( 3 1 , P ILK» ' : HOSTCHAR : DRA3 : [ 2400 1 6 . EMP . STORE ] UA . DAT ' , 
$ STATUS" ' NEW ' , FORM- ' FORMATTED 1 ) 

DO  720  J=0 , NJ 

WRITE (31 ,1060)YP(J)/RP,UA(J) 

720  CONTINUE 
CLOSE (31) 

DO  730  J-l , NJ/INCY 
DO  740  1=1 , INCT+1 
Z(I)  =  UT(I,J) 

740  CONTINUE 

CALL  EF I T ( YP ( J * I NCY ) , INCT+1 , TEMP, Z, AMAG, ANGD) 

UMAG(J)  =  AMAG 
UANG(J)  =  ANGD 
730  CONTINUE 

IF(V. EQ . 1 ) OPEN (32 , FILE- 1 : HOSTCHAR : DRA3 : [ 24  00 1 6 . EMP . STORE ] UMAG . DAT 1 
$ ,  STATUS"  ’  NEW 1  ,  FORM-- 1  FORMATTED 1  ) 

IF ( V . EQ . 1 ) OPEN ( 33 , FILE- ' : HOSTCHAR : DRA3 : (24001 6 . EMP . STORE ] UANG . DAT ' 
$ , STATUS" ' NEW ' , FORM- ' FORMATTED ' ) 

UMAG  ( 0 )  =  0.1)0 

UANG ( 0 )  =  UANG ( 1 ) -YP ( I NCY ) * ( UANG ( 2 ) -UANG ( 1 ) ) / ( YP ( 2* I NCY ) -YP ( I NCY) ) 
DO  750  J=0, NJ/INCY 

WRITE (32, 1070 )YP( J*INCY)/RP,UMAG( J) /UMAG (NJ/INCY) 

WRITE  (33, 1080)YP(J*INCY)/RP,UANG(J) 

750  CONTINUE 
CLOSE (32) 

CLOSE (33) 

C - 

OUTPUT  OF  SHEAR  STRESS  INFORMATION 


DO  830  J=0, NJ/INCY- 1 
DO  840  1=1 , INCT+1 
Z ( I )  =  TAUT ( I , J) 

840  CONTINUE 

CALL  EFIT ( YP ( J* I NCY ) , I NCT+1 , TEMP , Z , AMAG , ANGD ) 
TAUMAG (J)  =  AMAG 
TAUANG (J )  =  ANGD 
830  CONTINUE 

I F  ( V .  F.Q .  1 )  OPEN  ( 4 1  ,FII.E= 

$ ' : HOSTCHAR : DRA3 : [ 2400 1 6 . EMP . STORK ] TMAG . DAT ' 

$ , STATUS- ' NEW ' , FORM- ' FORMATTED ' ) 

IF(V.EQ. 1 )OPEN ( 42 , FILE- 
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$  '  :  HOSl’CHAR  :  DRA3  :  [240016  .  EMP  .  STORK] TANG  .  DAT  ’ 

$ , STATUS- ' NEW ' , FORM- ' FORMATTED ' ) 

TAUMAG ( N J/ [ NCY )  =  O.DO 
DO  850  .7=0  ,  NJ/INCY 

WR I TK  (41 , 1070  )YP  ( J*INCY)/RP  ,  TAUMAG  (.7 ) 

1 F  ( .7  .NE.  NJ/INCY) WRITE! (42 , 1080)YP( J*INCY)/RP  ,TAUANG(J) 

850  CONTINUE 
CLOSE (41) 

CLOSE (42) 

1000  FORMAT ( 1  WALL  SHEAR  STRESS  =’,F8.4,/,'  FRICTION  VELOCITY  =',F8.4,/, 
$'  TIME-AVERAGE  PRESSURE  GRAD I ENT= ' , F 1 0 . 5 , / . 

$'  R+ = 1 , F8 . 3 , / , 

$’  STOKE+*' ,F5. 1 ,/, '  VIS.  LENGTH  =',F5.4) 

1020  FORMAT ( '  ENTER  TAUW.WP' ./,1X,2(3X,F8.4) ) 

1030  FORMAT ( 1  MAG.  OF  SHEAR  STRESS  AT  Y0+* '  , F6 . 4  ,  / 

$.'  PHASE  OF  SHEAR  STRESS  AT  Y0+=',F6.1) 

1035  FORMAT ( '  ENTER  INITIAL  DTP , DYP1 , DYPL  AND  INCY'./.IX, 

$3(3X,F6.3) ,2X, 13) 

1040  FORMAT ( IX , ' DTP- 1 , F5 . 3 , 1  DYP1= ' , F5 . 3 , '  DYPL-' ,F5. 2./. 

$'  NT= 1 , 16 , '  NJ* ' , 14 , '  H= I , F6 . 4 ) 

1045  FORMAT  ( IX, 'TIME  PLOTTING  INC.*', 13,'  Y  PLOTTING  INC.*', 13) 

1050  FORMAT ( IX ,  '  TAUW * '  ,  F7 . 3 ,  '  FINAL  RE*  '  ,  F6 . 0 ) 

1055  FORMAT( IX. 'TIME- AVERAGE  CENTERLINE  VELOCITY* F5 . 2 ,/ , 

$'  TIME -AVERAGE  BULK  VELOCITY* F5 . 2 ,/ , 

$'  RATIO  OF  UB/UC =' ,F5.3) 

1060  FORMAT ( IX , F8 . 3 , 2X , F6 . 3 ) 

1070  FORMAT ( IX , F8 . 3 , 2X , F8 . 5 ) 

1080  FORMAT ( IX , F8 . 3 , 2X , F6 . 1 ) 

1090  FORMAT ( '  FREQUENCY* ', F8 . 4 ,/ , 

$'  DIMENSIONLESS  FREQUENCY* ', F7 . 4 ) 

1100  FORMAT ( '  AMP.  OF  THE  CENTER  OSC .  VELOCITY* F6 . 3 ,/ , 

$'  PHASE  OF  THE  CENTER  OSC.  VELOCITY* ' ,F6 . 1 , /, 

$  '  AMP .  OF  THE  NORM .  OSC .  WALL  SHEAR  STRESS* ' , F6 . 3 , / , 

$'  PHASE  OF  THE  OSC.  WALL  SHEAR  STRESS* ', F6 . 1 ,/ , 

$'  PHASE  OF  THE  OSC.  WALL  SHEAR  STRESS  RELATIVE  TO  UC=',F6.1) 

1200  FORMAT ('  ENTER  0=VAX, 1=AP ' , IX, F3 . 1 ) 

1210  FORMAT ( '  OUTER  LOOP* ',12,'  DELTA* ' , F10 . 5 , / , 

$'  UPO ( 2 ) = ' , F8 . 4 , 1  UPO (3 ) = ' , F8 . 4 , / , 

$'  UPO ( NJ  - 1 )  = ' , F8 . 4 , '  UPO (NJ ) * ' , F8 . 4 ) 

1220  FORMAT ( '  OUTER  LOOP  DID  NOT  CONVERGE') 

1230  FORMAT ( '  OUTER  LOOP  CONVERGED  AT  ITERATION  #',I2) 

1240  FORMAT ('  LOOP*’, 13,'  DELTA* ' , F6 . 4 ) 

STOP 

1250  FORMAT ( IX, F5 . 1 , 1X.F7 . 4 ) 

END 


SUBROUT I NE  I N I T ( Y P , AV , AMPP , UPO , BY , YPP 1 , TEMP , TURBKV , 
$CP,C1,C2) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  YP ( 0 :  N J )  , BY ( 0 : NJ )  ,  UPO  ( 0 :  NJ )  ,  CP  ( 0 :  N J ) 
DIMENSION  TEMP ( 1 : NJ1 ) , YPP1 ( 1 : NJ1 ) , TURBKV ( 0 : NJ ) 
COMMON/ALL/RP , NT , NT1 , WP , TP , DTP , H , NJ ,NJ1 , DYP1 , PI 
COMMON/PARA/KAPPA , APA , YOO , K1 , KR 
REAL *8  KAPPA, Kl.KR 


u  o  O  u  o 
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TAULOG  =  1 .  -  YOO/RP 
DO  100  J=0,NJ 
YPPUJ  +  l)  =  YP(  J) 

Z  =  YP(J)/RP 

BY ( J )  =( (KAPPA*YP(J)*2./3. )*(l.-Z/2. )  *  (3 . -4 . *Z+2 . *Z**2) )**2 
TAU  =  l.-Z 

IF(TAU  .LT.  TAULOG) TAU  =  TAULOG 
E  =  (1. -DEXP(-YP(J)  *  DSQRT( TAULOG)  /  APA))**2 
TURBKV(J)  =  0.5  *  (-1.  +  DSQRT ( 1 . +TAU*BY ( J ) *E ) ) 

TEMP( J+l )  =  ( 1 . -Z ) / ( 1 . +TURBKV ( J ) ) 

100  CONTINUE 
Z  =  YOO/RP 

B  = ( ( 1 . -Z/2  .  )  *  (3.-4.*Z+2.*Z**2))**2 
TAUOO  =  l.-Z 

A  =  (4./9.)  *  TAUOO  *  (KAPPA*Y00)**2 
D  =  -YOO  *  DSQRT ( TAUOO )/APA 
E  =  (1 .-DEXP(D) )**2 
Cl  =  0.5  *  (1.  +  DSQRT (l.+A*B*E)) 

C2  =  Cl  -  1. 

****  NOTE:  TO  USE  INTEG  QUANTITIES  MUST  GO  FROM  1:NJ1 


UPO(O)  =  0.0 

UPO(l)  =  DYP1  *  ( TEMP ( 2 ) +TEMP ( 1 ) ) /2 . 

DO  200  .1=3 ,  NJ1 

CALL  INTEG ( YPP1 , TEMP , J , 1 , 1 , 0 , UPP1 . IRROR) 

IF ( IRROR .  EQ  2  )WRITF.(  11 , 1200) 

IF ( IRROR. EQ. 2) WRITE (6, 1200) 

1200  FORMAT ('  ERROR  2  IS  GENERATED') 

UPO(Jl)  =  UPP1 
200  CONTINUE 

DO  250  J=1 , NJ1 

TEMP(J)  =  (2./RP)  *  UPO(J-l)  *  (l.-YP(J-l)/RP) 

250  CONTINUE 

CALL  INTEG (YPP1 . TEMP , NJ1 , 1 , 1 , 0 , UBP , IRROR) 

UCP  =  UPO(NJ) 

RE  =  2 . *RP*UBP 
AMPP  =  WP*AV*UCP 
WR ITE ( 6 , 1 000 ) RE , UBP . UCP , AMPP 
WR I TE ( 1 1 . 1 000 ) RE , UBP . UCP , AMPP 
1000  FORMAT ('  INITIAL  RE= ' , F7 . 0 , / , 1  INITIAL  UB+= ' . F6 . 2 , / , 

$'  INITIAL  UC+= ' , F6 . 2 , / , '  INITIAL  A+= F10 . 6) 

WRITE (0,1010) Cl, C2 
WRITE(11, 1010)01, C2 

1010  F0RMAT(1X, 'LOG  CONSTANTS  FOR  THIS  RUN  (C1.C2)  = ' , 2 ( IX . F5 . 2 ) ) 
C 
C 

A1  =  -H  /  (DYP1* (Ht 1 . ) ) 

A2  =  ( H— 1 )  /  (DYP1*H) 

A3  =  1.  /  (DYP1  *  H  *  (H+l ) ) 

1)1  =  YP  (  2 )  -  YP  ( 1 ) 

D2  =  YP ( 1 )  -  YP ( 0 ) 

D3  =  YP ( 2 )  -  YP ( 0 ) 


CP(O)  -  UP0(1)*D3/(D1*D2)  -  UPO(2)*D2/(Dl*D3) 

DO  300  J-l.NJ-1 

CP(J)  =  (A1*UP0 ( J- 1 )  +  A2*UP0(J)  +  A3*UP0(JH)) 
$/  H**(J-1) 

300  CONTINUE 

CP(NJ)  =  O.ODO 

RETURN 

END 


SUBROUTINE  PEFF ( PPA . PPT , AP ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  PPT ( 0 : NT) , AP ( 0 : NT ) 

COMMON/ALL/RP , NT , NT 1 , WP , TP . DTP , H , N J , N J 1 , DYP 1 , P I 
COMMON/PARA/KAPPA , APA . YOO , K1 , KR 
REAL*8  KAPPA, Kl.KR 

c - 

C  PPE  =  EFFECTIVE  PRESSURE  GRADIENT 
C  PPA  =  TIME-AVERAGED  PRESSURE  GRADIENT 
C  PPT  =  PHASE -AVERAGED  PRESSURE  GRADIENT 

c - 

c****  NOTE l :  AP  IS  A  DUMMY  VARIABLE  IN  THE  ITERATION  LOOP.  IT  IS 
C****  EQUAL  TO  THE  EFFECTIVE  PRESSURE  GRADIENT  AT  N+l 

C****  N0TE2:  PRESSURE  GRADIENTS  INPUT  ARE  -(dP/dX).  THEREFORE.  THE 
(;****  'EFFECTIVE  PRESSURE  GRADIENT'  IS  MULTIPLIED  BY  -1 

C****  IN  THE  EQUATION  FOR  AP 

51  =  DTP/ (KR/15 . ) 

52  »  1.-  SI 

PPF.N  =  PPT  ( 0 )  -  PPA 
DO  200  KK  1,500 
PPEOLD  =  PPEN 
DO  300  N  =0 , NT  - 1 

AP(N+1)  -  S2  *  PPEN  +  SI  *  ( PPT (N)- PPA) 

PPEN  =  AP ( N+l ) 

300  CONTINUE 

AP ( 0 )  =  AP (NT) 

IF ( PPEOLD. EQ. PPEN) GOTO  350 
200  CONTINUE 

WRITE (11 ,1000) 

WRITIi(6, 1000) 

1000  FORMAT ( '  PRESSURE  ITERATION  DID  NOT  CONVERGE') 

STOP 

350  CONTINUE 

WRITE ( 11 , 1010 )KK 
WRITE (6, 1010 )KK 

1010  FORMAT ( '  PRESSURE  ITERATION  CONVERGED  AT  ITERATION  # ' . 13 ) 

DO  400  N=0 , NT 

AP(N)  =  APA  *  (1.  +  Kl*(-1 . *AP(N) ) ) 

400  CONTINUE 
RETURN 
END 


SUBROUTINE  USOLVE (YP , PPN , TURBKV , UPN , CP , UPN1 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 
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DIMENSION  YP ( 0 : N J ) , UPN ( 0 : NJ ) 

DIMENSION  CP (0 : NJ ) ,UPN1 (0:NJ) ,TURBKV(0:NJ) 
DIMENSION  B1  (0:500)  ,132(0:500)  ,B3(0:500) 
COMMON/AI.L/KP ,  NT ,  NT1 ,  WP ,  TP ,  DTP ,  H ,  NJ ,  NJ1  ,DYP1  ,PI 
C0MM0N/0NE/A1 ,  A2  ,  A3 , 131 ,  B2 , 133 ,  D4  ,  D5 ,  El ,  E2  ,  E3 
C 
C 

UPN1(0)  =  O.ODO 
(3  =  1)TP*PPN 
DO  100  J-l.NJ-1 

1311  =  131  ( J )  *  ( 1 .  +TURBKV(  J  -1 ) )  *  CP(J-l) 

B22  =  B2(J)  *  ( 1 . +TURBKV ( J ) )  *  CP(J) 

B33  =  B3( J)  *  ( 1 . +TURBKV( J+l ) )  *  CP(J+1) 

PART  =  DTP  *  (A1*B11  +  A2*B22  +  A3*B33) 

UPN1 ( J)  =  UPN(J)  +  G  +  PART 
100  CONTINUE 

UPNl(NJ)  =  D4*UPN1 (NJ-1 )  -  D5*UPN1 ( NJ-2 ) 


CP(O)  =  UPN1(1)*E1  +  UPN-1  ( 2 )  *E2  +  UPN1(3)*E3 
DO  200  J--1.NJ-1 

CP(J)  =  (A1*UPN1(J-1)  +  A2*UPN1 ( J )  +  A3*UPN1 ( J+l ) ) 
$/  H**(J-1) 

200  CONTINUE 

CP(NJ)  =  O.ODO 

RETURN 

END 


SUBROUTINE  LOGTAU ( YP , BY , AP , Cl , C2 , CP , TAULOG , NK ) 

IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  YP ( 0 : NJ ) , CP ( 0 : NJ ) , BY ( 0 : NJ ) 

COMMON/ALL/RP , NT , NT 1 , WP , TP , DTP , H , N J , N J 1 , DYP 1 , PI 
DO  100  J-O.NJ-l 
TAUE1  =  Cl  *  CP(J) 

E  =  (1.  -  DEXP(-YP( J)  *  DSQRT(TAUEl)  /  AP))**2 
TKV1  =  0.5  *  (  1.  +  DSQRT(1.  +  BY(J)*TAUB1*U) ) 

IF (TKV1  .GE.  C2)NC  =  J-l 
I F ( TKV 1  .GE.  C2)G0T0  200 
100  CONTINUE 
200  CONTINUE 

TAUE2  =  Cl  *  CP(NC) 

E  =  (1.  -  DEXP( -YP(NC)  *  DSQRT ( TAUE2 )  /  AP))**2 
TKV2  =  0.5  *  (-1.  +  DSQRT(1.  +  BY(NC)*TAUE2*E) ) 

TAULOG  =  TAUE2  -  (TAUE2-TAUE1 )  *  (TKV2-C2)/ (TKV2-TKV1 ) 

NK  =  NC  +  1 

RETURN 

END 


SUBROUT  I NE  TAU  ( NK ,  TAULOG ,  AP ,  YP ,  BY ,  TURBKV ,  CP ,  TAUPN 1 ) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 

DIMENSION  YP ( 0 : NJ ) ,CP(0:NJ) ,BY(0:NJ) 

DIMENSION  TAUPN 1 ( 0 : NJ ) . TURBKV (0 : NJ ) 

COMMON/AI.L/RP ,  NT ,  NT1 ,  WP  ,  TP ,  DTP  ,  H ,  NJ  ,  NJ1 ,  DYP1  ,  PI 


COMMON/PARA/KAPPA , APA , YOO , K1 , KR 
REAL* 8  H, KAPPA, Kl.KR 


C  INPUT:  CP ( N+ 1 ) , TURBKV ( N ) , DY , BY , TAULE 
C  OUTPUT:  TURBKV (N+l ) , TAUPN1 (N+l ) 

- - 

C  MODELS  WHERE  THE  EDDY  VISCOSITY  IS  A  FUNCTION 

C  IN  SOME  FORM  OF  THE  LOCAL  SHEAR  STRESS 


DO  100  .7=1,  NJ 
TAUO  =  TAUPNl(J) 

DO  200  K=1 , 100 
TAUD  =  TAUPNl(J) 

IF (.7  . 6E .  NK ) TAUD  =  TAUL06 
E  »  ( 1  -DEXP(  -YP(.J)  *  DSQRT(TAUD)  /  AP))**2 
TAUPNl(J)  =  CP(J)/2.  *  (1.  +  DSQRT ( 1 . +TAUD*BY ( J ) *E ) ) 
IF( J  .GE.  NK ) GOTO  250 

IF  (DABS  (TAUPN1  (J)-TAUO)  .  I.E  .  0.0001)  GOTO  250 
TAUO  =  TAUPNl(J) 

200  CONTINUE 
250  CONTINUE 

TAUD  =  TAUPNl(J) 

IF ( J  .GE.  NK ) TAUD  =  TAULOG 

TURBKV ( J )  =  -.5  +  . 5*DSQRT ( 1 .  +  TAUD*BY( J)*E) 

100  CONTINUE 

TURBKV ( 0 )  =0.0 
TAUPNl(O)  =  CP(O) 

RETURN 

END 


SUBROUTINE  EFIT ( YDIS , NP , X , Z , MAG , PHASE ) 
IMPLICIT  DOUBLE  PRECISION  (A-H.O-Z) 
DIMENSION  A ( 6 , 6 ) , B ( 6 ,  .1 ) 

DIMENSION  AMAG ( 3 ) , ANGD(3) ,ANG(3) ,RAT(3) 
DIMENSION  Z( 1 : NP) , X(1 : NP) 

REAL *8  MAG 
NPPP1  =  NP 
NHARMO  =  3 
NHR  =  3 
N=NHARM0*2 
MAX= (NPPP1 /2 ) 

PI  =  4.  *  DATAN ( 1 . DO ) 

X ( 1 )=0.D0 

DO  200  1=1, NPPP1  1 

X(I+1)=I*(1  ./(I)FLOAT(NPPPl  1) )  )*2*PI 
200  CONTINUE 

DO  88  .7=1  ,  NP  -1 
ZAVG  =  ZAVG  +  Z(J) 

88  CONTINUE 

ZAVG  =  ZAVG  /  DFLOAT(NP-l) 

DO  89  .7=1,  NP 
Z(J)  =  Z (.7 )  -  ZAVG 

89  CONTINUE 
DO  1  1=1, N 


270 


DO  2  J=1.N 

2  A( I , J )=0 .DO 

]  CONTINUE 

C 

DO  3  K=1.N 

3  B(K , 1 ) =0 . DO 

DO  5  M=1 . NPPP1 
11=0 

DO  6  JJ==1  ,N,2 
11=11+1 

B(JJ,1)=B(JJ,1)+Z(M)*DSIN(X(M)*II) 

B( JJ+1, 1 ) =B( JJ+1, 1)*Z(M)*DC0S(X(M) *11) 

MM=0 

DO  7  KK==1,N,2 
MM=MM+1 

A ( JJ , KK ) =A ( JJ , KK ) +DSIN (X (M) *1 I ) *DSIN (X (M) *MM ) 
A(JJ,KK+1)=A(JJ,KK+1)+DSIN(X(M)*II)*DC0S(X(M)*MM) 

A(  JJ+  1  , KK) =A( JJ+1  , KK)+DCOS(X(M)*II )*DSIN(X(M)*MM) 

A(  JJ+1  ,KK+1 )  =A(.JJ+1 ,  KK+1 )  +DCOS(X(M)*II )*DCOS(X(M)*MM) 

7  CONTINUE 

6  CONTINUE 

5  CONTINUE 

CALL  MATRIX ( A,B ,N, 1 ) 

C 

IF=0 

DO  8  IE=1 , N , 2 
I F  =  I F  + 1 

AMAG(IF)-DSQRT(B(IE. 1)**2+B(IE+1,1)**2) 

BB=-B(IE, 1) 

BBB=B(IF.  H  ,  1) 

ANG (IF) =DATAN2 ( BB , BBB ) 

ANGD (IF) =ANG (IF) *360 . / (2 . *PI ) 

RAT (IF) =AMAG (IF) /AMAG ( 1 ) 

8  CONTINUE 

IF (YD IS  .EQ.  9999)  GOTO  555 
555  CONTINUE 

MAG  =  AMAG ( 1 ) 

PHASE  =  ANGD ( 1 ) 

RETURN 

END 

SUBROUTINE  MATRIX(A, B,N,M) 

IMPLICIT  DOUBLE  PRECISION (A-H , 0-Z ) 

DIMENSION  AUGflO, 11) ,B(N) ,A(N,N) 

C  MAX.  ORDER  EQUAL  TO  10 
C  N  =  ORDER  OF  SQUARE  MATRIX 

C  M  =  #  OF  RIGHT  HAND  SOLUTIONS 

EPS  =  0.00000000001 
NPLUSM  =  N  +  M 
DO  2  1  =  1.  N 
DO  3  J=1 ,N 
AUG(I.J)  =  A ( I , J ) 

3  CONTINUE 

AUG(I .NPLUSM)  =  B ( I ) 

2  CONTINUE 
C 


C  BEGIN  ELIMINATION  PROCESS 
C 

C  CALCULATE  THE  DETERMINANT 
DETER  =  l.DO 
DO  9  K=.l ,  N 

DETER  =  DETER  *  AUG(K,K) 

C  CHECK  FOR  PIVOT  ELEMENT  TOO  SMALL 

IF (DABS (AUG (K,K) ) .GT.EPS)  GOTO  5 
WRITE (6, 1000) 

1000  FORMAT ( IX, '  MATRIX  MAY  BE  SINGULAR') 

RETURN 

5  KP1  =  K  +  1 

DO  6  J=KP1 , NPLUSM 

6  AUG(K.J)  =  AIJG(K.J)  /  AUG(K.K) 

AUG (K , K)  =  1. 

C  ELIMINATE  K ( TH )  COLUMN  ELEMENTS  EXCEPT  FOR  PIVOT 
DO  9  1  =  1,  N 

I F ( I . EQ . K  .OR.  AUG (I ,K) .EQ.O. )  GOTO  9 
DO  8  J=KP1, NPLUSM 

8  AUG(I.J)  -  AUG(I.J)  -  AUG ( I , K ) *AUG ( K . J ) 
AUG(I.K)  =  0 , DO 

9  CONTINUE 

DO  10  1=1. N 

B(I)  =  AUG( I .NPLUSM) 

10  CONTINUE 
RETURN 
END 
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